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PREFACE 


We have made use of the standard AMSTRAD CPC464 with its on-fxrard cassette 
recorder and the CTM 640 colour monitor for the development of this book and, in 
all respects, we think the Amstrad is a very nice machine for writing games. It is 
great fun to use and has lots of facilities. 

This book .shows a gtxxl range of games for you to key in and play and we hope 
you will want to make changes to them so as to allow for your own variations. 
Beftrre long, you should be able to start writing your own games programs. 

The first chapter of the bcxrk will help you enter and run a particular game in the 
most efficient way and to sort out some of the mistakes that you are bound to make. 
Some of the games programs are quite long, and even the most careful programmer 
can make a mistake. 

The next chapter tells you something about the “Locomotive” BASIC used in the 
games and explains the way we have written the programs using its very powerful 
.statements and commands. 

Chapter 3 intrcxluces the machine for graphics, animation and art. First there are 
.some animated “art” di.splays which show you just how nice a display you can get 
from a very small program. Then for tho.se who want to add .scenes to games, there 
is a clever little program that allows you to generate “solid” shapes. 

Next, we introduce you to a drawing program that can be used to paint very 
detailed pictures. Once you are familiar with writing games, you might be able to 
use this to build up really nice backgrounds, perhaps for adding to adventure 
games. 

The rest of the book contains lots of games grouped into different types. We 
hope that you will try all of them, and we expect you to get as much enjoyment out 
of playing the games as we did writing them. 

Finally, our thanks to Mark Hopgood for writing many of the games and sorting 
out the programs into their final form. 

Martin Gandoff 
Robin Kinge 

November 1984 




Chapter 1 


HOW TO MAKE USE 
OF THE AMSTRAD 


Introduction 

Before you bought your Amstrad CPC464, you would have kxiked at the 
alternatives in the same price range. At the time of writing there are more than 10 
machines of a similar price; comparing the Amstrad’s wide range of facilities with 
the others, we think that it is one of the top three. Amstrad have adopted 
“Locomotive” BASIC which is fast and has powerful facilities. 

The User Guide is a mine of information about the extensive features of the 
Amstrad CPC464. Our second chapter is not intended to replace the manual in any 
way, but we feel that you will find it useful to have a classification and explanation 
of statements particularly used in our games programs. 

The equipment used for writing the games was: 

• An Amstrad CPC464 microcomputer with the standard cassette recorder and 
video screen. 

• An Epson FX80 printer connected through the Centronics output port. 

The various programs were saved and sorted on cassette using the cassette recorder 
(at SPEED WRITE 1). 


Entering Programs 

The Amstrad keyboard has a smooth action and a very positive feel. We also found 
that the colour coding of the keys was useful to help in gaining familiarity. 

The layout of the keyboard is good except that the cursor keys could have been 
better placed. It is quite easy to hit one of the keypad keys with your hand when 
using them. 

There is no reset key as such, but the combination CONTROL, SHIFT and ESCAPE 
does the same job. It clears the entire memory, so be careful when using it. 

The Cassette Recorder 

This is the main backing store for the Amstrad CPC464. The drive SAVEs and LOADs 
at two different rates: 

SPEED WRITE 0 This SAVEs and LOADs at 1000 Baud (about 120 characters 
per second). 
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SPEED WRITE 1 This SAVEs and LOADs at 2000 Baud (about 250 characters 
per second). 

SPEED WRITE 0 (which is the default option) should be used when you are 
transferring programs between your own Amstrad and others. This is because the 
slower rate ensures that it reads each character correctly. 

Most commercial programs on tape will be saved at SPEED WRITE 0, again to 
ensure that the program goes in correctly. 

SPEED WRITE 1 is faster than SPEED WRITE 0 and of course loads a program 
approximately twice as fast. This means, however, that it is slightly le.ss reliable. 
However, a program saved at SPEED WRITE 1 will almost always relmd into the 
machine it was saved on. 

Often when you are loading programs, the tape will stop for a few second.s. Don’t 
worry since this is quite normal behaviour. It is the Am.strad doing its tape control. 
You must let the tape continue mnning or the program will not load. The Amstrad 
will tell you when it has finished the load by printing READY or by running the 
program. 

You load a program by pressing the CONTROL key next to the space bar and, 
while holding it down, pressing the small ENTER key on the numeric keypad. 

The Amstrad will tell you to press PLAY on the cassette player and any key on the 
keyboard. It will then load the first program it comes to on the c'as.sette. 


The Function Keys 

Unlike some computers, the Amstrad allows for the u.se of the numeric keyj:)ad as 
.special function keys. They can be programmed to represent any command so as to 
save you the effort of having to enter it in full. 

To associate a key with a command, you enter: 

KEY x,cmnd 

where x is the number of the key to be programmed, and cmnd is the command. 
For example: 

KEY 1, “RUN” 

Whenever key 1 on the keypad is pressed, RUN will appear on the screen and the 
command will be executed as soon as you press ENTER. 

A useful extension is to make the command “auto-active”. You establi.sh the 
command with: 

KEY 1, cmnd + CHR$(13) 

The CHR$(13) is the internal code equivalent for ENTER. 



Chapter 2 


PROGRAMMING HINTS 
AND “LOCOMOTIVE” 
BASIC 


Program Structure 

The first thing you will probably notice when you kx)k at the programs we have 
written is that they seem to be very long indeed. You will also notice that the reason 
for this is that most lines are coded as single statements. 

There are two major reasons for this. First of all, people have got into the habit of 
making their BASIC take up as little room as possible, becau,se it is more efficient 
for the translator program as many games computers have a limited amount of 
memory. The Amstrad has a gcxxl-sized memory and you need not worry about 
there not being enough space available to translate your BASIC into machine code. 
(The games programs generally use well under a quarter of the available memory 
space.) 

The other reason is that people have become lazy and seem to prefer saving a 
little time when entering programs, at the expense of making them readable. We 
have .spaced the program lines out and we hope that you will take note of what we 
have done and will enter the program lines in the format in which they are shown 
in the b(x)k. Of cour.se, if you are de.sperately .short of time, you could leave out 
some of the .spaces. For example, you will see many ca.ses where we have 
“indented” lines, iaside a FOR.. .NEXT for example. We think that this makes the 
program easier to read but if you cannot be bothered, then do not put them in. 

If you have been clever in the pa.st, you will already know about using GOSUB 
and RETURN for subroutines to make the logic of your programs easier to 
understand and therefore easier to program. 

A unique a.speci of Amstrad BASIC is the facility to handle timer interrupts. The 
machine has four internal clocks and each can be nominated to allow for an activity 
to be carried out every so often. The statement takes the form: 

EVERY n,c GOSUB line-number 

Each and every n time units ('/joth of a second) of clock c, the system causes the 
subroutine at “line-number” to be executed. You can get very clever by making use 
of all four clocks if you wish. 
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The “Graphics” Statements 

Now let us look at what we will call the graphics statements. We can divide these 
into two main groups, as follows: 

• Statements relating to origins, windows and colour. 

• The drawing statements themselves. 

MODE 

We must mention this first because many others depend on it. The statement sets 
the resolution of the screen and also the number of colours that can be used. 


n value 

MODE n 

text area 

pixels 

colours 

0 

20 X25 

160 X 200 

16 

1 

40 X 25 

320 X 200 

4 

2 

80 X 25 

640 X 200 

2 


ORIGIN 

This enables you to reset the graphics origin, i.e. the origin from which the drawing 
statements are located. It takes the form; 

ORIGIN x,y|l,r,t,b| 

The x,y specifies the actual location of the origin in pixels from the default origin. 
The term in the curly brackets enables you to specify a graphics window. The 1 
specifies the number of pixels from the left of the screen that the left-hand side of 
the window will be, r the number from the left for the right-hand side and t and b 
specify the number of pixels that the top and bottom will be from the top and the 
bottom of the screen, respeaively. 

We will have more to say about windows shortly. 

LOCATE 

This associated statement enables text to be located other than at the current text 
cursor position. 

LOCATE x,y 

We are asking the cursor to be relocated at character x on line y, where character 
size and line spacing are controlled by MODE. 

MOVE 

MOVE x,y 

This statement is discussed under drawing statements on page 9, although it is 
mentioned here since it is also connected with relocating origins. 
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TEST 

This enables us to look at a particular pixel (x,y) and determine which PEN colour 
is associated with it: 

TEST x,y 

The x,y specifies the required pixel. 

TAG/TAGOFF 

If we want to label a diagram, we can arrange to make text appear at the current 
graphics cursor position. After the most recent graphics statement, we say: 

TAG 

The next PRINT statement will cause printing as we have asked and later prints 
will follow on until we give a: 

TAGOFF 

which returns any further text to the current cursor position. 


Windows 

Now let us l(X)k at the concept of windows. These are selected areas on the screen 
with which text can be asscx'iated. 

The BASIC statement to define a window is: 

WINDOW # n,l,r,t,b n= 0-7 

n .specifies the stream the window is associated with so that it can be referred to in 
PRINT, LOCATE and other statements. A stream can be numbered 0-7. 

Having specified a stream, we can .say for example: 

100 PRINT #2, “IN WINDOW 2” 

110 PRINT #3, “IN WINDOW 3” 

The 1, r, t and b specify the sides of the window (as we explained for a window 
defined using the option in ORIGIN) except that they are specified in characters 
determined by the current MODE. For example: 

100 MODE 1 

200 WINDOW #3, 1, 10, 1, 10 

sets up a window with its top left-hand corner in the top left-hand comer of the 
screen and its bottom right-hand comer 10 characters down and 10 characters 
across. 


WINDOW SWAP 

When you do not specify a stream to be associated with PRINT, LOCATE etc., the 
default value is assumed to be 0. It is possible to alter this defeult as follows: 



6 An Amstrad CPC464 Compendium 


WINDOW SWAP si, s2 

This changes the significance of a stream from si to s2. In other words, if you have 
said: 


WINDOW SWAP 0,4 

the stream assumed, if none is specified, becomes 4. 

Similarly, if you have said: 

WINDOW SWAP 2,5 

on execution of: 

PRINT #2, “FRED” 

the output text will actually appear in the window asscx'iated with stream 5. 


Scrolling 

There is no separate statement to produce scrolling, but you can get clever with 
CHR$. 

You position the text cursor to the top left, with IjOCATE, and then say: 
PRINT #n,CHR$(10) 

This will scroll the screen down by one line. 

If you LOCATE the bottom left, you can: 

PRINT #n,CHR$(ll) 

to scroll up by one line. 

CLS 

This enables you to clear out a window to the current PAPER colour (colours will be 
discussed shortly). 

CLS #n 

where n is the specified stream. Ifyou do not .specify a stream, the screen a.sscx'iated 
with stream 0 is cleared. 


Colours 

The approach to colours with the Amstrad is flexible and is very gcxxl for games. 
Essentially there are 27 colours to chcxise from, numbered 0-26. In practice, the 
screen can only handle a maximum of 16 colours which must be selected firom 
these, i.e. only 16 colours can be in use at the .same time. 


INK 

This enables the 16 logical colours to be selected from the 27 actual colours. 
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Details of the actual colours and the values selected from them for the default 
logical colours can be obtained from the Amstrad User Guide. 

INK l,a 

where 1 specifies the logical colour (0-15) and a the actual colour (0-27). 


PEN 

Having selected the lexical colours (which need not all be different, by the way), 
you select the logical colour in which text will appear: 

PEN 1 

All later PRINT statements will appear in the selected window in the logical 
colour denoted by 1. A further PEN will change the logical colour of the text. 


PAPER 

The same as PEN, but the colour of the window background is controlled: 

100 INK 3,20 Bright Cyan 

no INK 6,11 Sky Blue 

120 INK 9,5 Mauve 

140 PEN 3 

150 PAPER 6 

160 PRINT “HEU.O” 

170 PAPER 9 

180 PRINT “GOODBYE” 


HELIO will appear in bright cyan on sky blue paper, while GOODBYE will be 
bright cyan on mauve. 

If you then give a new INK statement, i.e. changing the significance of a logical 
colour, then anything on the screen prcxluced by specifying PEN or PAPER in the 
old logical colour will be changed to the new logical colour. 


BORDER 

This enables you to set up a coloured border around the screen: 
BORDER c 

where c is the logical colour. 


Flashing 

By specifying another colour with INK, it is possible to arrange for a flashing effect. 
Also, the rate of flashing can be controlled with SPEED INK. 

INK l,al,a2 

vdiere 1 is the logical colour formed by alternate flashing of actual colours al and 
a2. 
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10 INK 3,20,6 
20 INK 12,9,1 
30 PEN 3 
40 PAPER 12 
50 PRINT “HELLO” 

This gives text flashing between bright cyan and red on flashing green on blue 
paper. 


SPEED INK 

This is used to control the flashing rate: 

SPEED INK fl,f2 

where fl and G specify the units of flash for each comprtnent in units second, 

SO: 


SPEED INK 50,100 

would cause a sequence of a one-sect)nd flash followed by a two second flash in 
the other colour. 

Flashing can also be induced in a border: 

BORDER 20,9 
SPEED INK 25,25 


The default value is 20,20, i.e. flash components of y;ths of a second. 


User-defined Graphic Characters (UDGs) 

These are characters you build up yourself. You make up the character using an 
8X8 grid and then use the following statement: 

SYMBOL n, dl,d2.d8 

where n is the decimal equivalent of the ASCII axle denoting the “official” 
charaaer you are defining as a UDG, and the dl -d8 are the decimal equivalents of 
the bit strings you have made up from your grid. 

Try this one out: 

20 SYMBOL 91,24,60,219,255,241,36,102,129 
30 PRINT CHR|(91) 

In order to stop you mistakenly re-using the symbol number for another UDG, 
you can protea it by saying: 

SYMBOL AFTER n 

where n is the symbol number. Any attempt to re-use any symbol less than or equal 
to n will be prevented. 

Now let us Icxik at the drawing statements, i.e. those that are specifically used to 
produce geometric shapes. 




Programming Hints 9 


The Drawing Statements 


PLOT 

This enables you to prtxluce a point: 

PLOT x,y,c 

where x,y specifies the kx:ation of the point in pixels, relative to the window origin, 
and c is an optional new colour for succeeding graphics statements (something 
like PEN for graphics). 

DRAW 

This allows a line to be drawn from the current graphics cursor location (or the last 
plotted point) to the specified point: 

DRAW x,y,c 

As with PLOT, c specifies a new colour. 

For PLOT and DRAW, if a new colour is specified, it has the effect that a PEN 
statement has on text, i.e. it changes the graphics colour until a further DRAW or 
PLOT is used with a new colour. 

MOVE 

This enables you to move the graphics cursor from the current position or the last 
plotted point or line: 

MOVE x,y 

No change of colour is possible with MOVE. 


A word of advice 

When you have finished running a game and want to start entering or loading 
another one, make sure that you reset, with the combination CONT1ROL/ 
SHIFT/ESCAPE, before continuing. If you do not, then a number of options may 
have been set by the earlier game that you will not want. The commands that you 
may need to enter to “clean things up” before you cany on could include any of the 
following: 

INK 

BORDER 

PEN 

NEW 

PAPER 

WINDOW 

All of these will be “cleared” to their de&ult values when you reset. 
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Sound 

We can’t finish this chapter without saying something about the sound facilities on 
the Amstrad. They are really superb and can be accomplished with the SOUND 
statement. This is very complicated and we will just deal with the basic four 
parameters: 

SOUND channel pitch duration volume 

• The channel is 1, 2 or 4. 

• Pitch starts at 0 and goes down to 4095. 

• Duration is in steps of milliseconds from 0 to 32767. 

• Volume is on a loudness scale of 0-15. 

Information on notes and pitches can be obtained from the Amstrad User Guide. 
To help you understand SOUND and to have .some flin, we have written a 
demonstration program called SYNTH 464. 

This program allows you to alter the i')itch, duration and volume of a given note. 
It also allows you to mix in one ENVEIOPE .statement. Envelopes are covered in 
great detail in the User Guide. 

The parameters to be altered are .selected using the cursor controls, while the up 
and down controls in combination with the shift key alter the actual value.s. 

100 REM 

110 REM * Synth 464 * 

120 REM «*«««*«««*««« 

130 p*-"IQIWIEIRITIYIUIIIDIPI" 
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140 plf=" i2!3i*l5!617l*19!0l’• 

150 INK 0,0:INK 1,25:INK 2,2:INK 3,17 
160 MODE 1 
170 PEN 1 

180 LOCATE 16,1:PRINT "Synth 464" 

190 PEN 2 
200 PRINT 

210 PRINT "this is a very simple sort o-f 

II 

220 PRINT "monophonic synthesiser." 

230 PRINT 

240 PRINT "the following keys are used f 
or the " 

250 PRINT "keyboard..." 

260 PRINT 

270 PRINT " ";pl» 

280 PRINT " ";p* 

290 PRINT 

300 PRINT "the envelope settings at the 
top of the" 

310 PRINT "screen correspond with the fi 
rst 15 " 

320 PRINT "parameters in the manual." 

330 PRINT "These parameters can be chang 
ed by" 

340 PRINT "hitting the space bar, and th 
en using" 

350 PRINT "the cursor control keys to mo 
ve the" 

360 PRINT "cursor around." 

370 PRINT "To change a parameter use <SH 
IFT> and " 

380 PRINT "either the up or down cursor 
keys." 

390 PEN 3 
400 PRINT 

410 PRINT " Press any key for Synth 46 
4" 
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420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
I NT 
720 
I NT 
730 
I NT 
740 
I NT 
750 
I NT 


IF INKEY*-"" THEN 420 
CLS 

INK 0,11 
INK 2,26 
INK 1,0 
PEN 1 

cl*-SPACE*<40) 

DIM a<2,9),lm(2,9) 

FOR i»l TO 9 
READ l,b 
FOR j-1 TO 2 
lm< 

bfn(J,i)-b 

a<j,i)-l 

LOCATE i*4,j*2tPRINT a(j,i) 

NEXT J 
NEXT i 

LOCATE 20,181 PRINT "durationi-" 
LOCATE 1,21 PRINT "ENV" 

LOCATE 1,41 PRINT "ENT" 

REM *««*«««#««*««*«**« 

REM * Malt for a kay * 

REM «*»***«««■»**«««**« 
a*»INKEY* 


IF a*-"" THEN 0OTO 650 


PEN 1 

LOCATE 9,15:PRINT p* 

LOCATE 10,14:PRINT pi* 

PEN 2 

IF a*-"q" THEN p-478:LOCATE 10,15:PR 
CHR*(143) 

IF a*-"2" THEN p-451:LOCATE 11,14:PR 
CHR*(143) 

IF a*-"w" THEN p»426:LOCATE 12,15:PR 
CHR*<143) 


IF a*»"3" THEN p-402:LOCATE 13,14:PR 
CHR*(143} 

IF a*-"e" THEN p-379:LOCATE 14,15:PR 
CHR*(143) 
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760 

IF a*-"r" 

THEN 

p-358tLOCATE 

16,15iPR 

INT 

770 

CHR*(143) 

IF a*-"5" 

THEN 

p-3381LOCATE 

17,14;PR 

INT 

780 

CHR*(143) 

IF a*»”t" 

THEN 

p-319;LOCATE 

18,15iPR 

INT 

790 

CHR*<143) 

IF a*-''6'' 

THEN 

p-301:LOCATE 

19,14;PR 

INT 

800 

CHR*(143) 
IF a*»'*y" 

THEN 

p=284:LOCATE 

20,15; PR 

INT 

810 

CHR*<143) 

IF a*=''7'' 

THEN 

p-268;LOCATE 

21,14;PR 

INT 

820 

CHR*(143) 

IF a*-''u'' 

THEN 

p-253:LOCATE 

22,15;PR 

INT 

830 

CHR*(143) 

IF a*-”i" 

THEN 

p-239;LOCATE 

24,15;PR 

INT 

840 

CHR*<143) 

IF a*»''9" 

THEN 

p-2251LOCATE 

25,14;PR 

INT 

850 

CHR*<143) 
IF a*-"o" 

THEN 

p-213'.LOCATE 

26,15;PR 

INT 

860 

CHR*(143) 

IF a*»"0" 

THEN 

p-201:LOCATE 

27,14;PR 

INT 

870 

CHR*(143) 
IF a*-''p" 

THEN 

p-190tLOCATE 

28,15;PR 


INT CHR*(143) 

880 PEN 3 

890 IF a*-CHR»(240) AND dur>0 THEN dur-d 
ur-SjLDCATE 30,18:PRINT durj" "iBOTO 650 
900 IF a«-CHR«(241) AND dur<150 THEN dur 
-dur+5:LOCATE 30,18;PRINT durj" "iQOTO 6 
50 

910 PEN 1 

920 IF af»" •' THEN BOTO 980 
930 SOUND l,p,dur,15,l,l 
940 BOTO 650 
950 REM 

960 REM * Envelope adustment * 

970 REM a********************* 

980 x»l;y“l 
990 a*=INKEY* 



14 An Amstrad CPC464 Compendium 


1000 IF a*-"" THEN 990 
1010 LOCATE y*4+l,x*2+l 
1020 PRINT ” •• 

1030 IF a»>CHR«(240) AND x>l THEN x-l 

1040 IF a*-CHR*<241) AND k< 2 THEN x-2 

1050 IF a4-CHR»(242) AND y>l THEN y-y-1 

1060 IF a$»CHRt<243) AND y<9 THEN y-y+1 

1070 IF a4-CHR«(245) AND a(x,y>>bm(x,y) 
THEN a(x,y)-a<x,y)-l 

1080 IF a4i»CHR«(244) AND a (x ,y )< Ifli (x ,y) 

THEN a(x,y)»a(x,y)-»-l 

1090 IF a*»" " THEN 1140 

1100 LOCATE y*4,x*2:PRINT a(x,y)|” ” 

1110 LOCATE y*4+l,x*2+l 
1120 PRINT CHRf(143) 

1130 GOTO 990 
1140 FOR i-1 TO 9 
1150 FOR j-1 TO 2 

1160 LOCATE i*4,j*2:PRINT a(j,i);” " 

1170 NEXT j 
1180 NEXT i 

1190 ENV l,a(l,l),a(l,2),a(l,3),a(l,4),a 

(1.5) ,a(l,6),a(l,7),a(l,8),a(l,9) 

1200 ENT l,a(2,l),a(2,2),a(2,3),a(2,4),a 

(2.5) ,a (2,6) ,a (2,7) ,a (2,8) ,a (2,9) 

1210 GOTO 650 

1220 a*-INKEY*8lF a*-"" THEN 1220 ELSE P 

RINT ASC(a«):GOTO 1220 

1230 DATA 217,0,127,-128,255,0 

1240 DATA 217,0,127,-128,255,0 

1250 DATA 217,0,127,-128,255,0 


Now we can start kxtking at the games programs. 
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COMPUTER “ART’ 


In this chapter, we will first show how nice you can make displays appear with 
some quite simple programs. 

Animation 

Ju.st enter and am COIh SPIRAI, SPINNING PIANETS, CYIJNDERS, 3D CIIBES, 
SEASICK and LINES and then sit back and watch. Then kx)k at the programs and see 
how it is done. You will learn a lot about advanced kx'omotive statements this way. 


100 

REM *#*««-»'** 


110 

REM * coil * 


120 

REM *«*«**«* 


130 

RAD 


140 

FOR i-1 TO 15iINK 

ifiiNEXT i 

150 

INK 2,0 


160 

MODE 0 


170 

ic'*0 


180 

id-1 


190 

CLS 


200 

FOR n-602 TO 0 STEP -6 

210 

zl-SIN(n)«1.2 


220 

z2-C0S(n)*1.3 


230 

x-255+(n/3)*zl 


240 

y-200+(n/3)*z2 


250 

r-n/12 


260 

OOSUB 420 


270 

id-id+liIF id>-16 

THEN id-id-15 
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280 

ic=id 


290 

NEXT n 


300 

a*! 


310 

b-2 


320 

a“a+liIF a«16 

THEN a-1 

330 

b«b+l:IF b»16 

THEN b»l 

340 

INK a,0 


350 

INK b,6 


360 

FOR i=l TO 50 


370 

NEXT i 


380 

GOTO 320 


390 

REIi 

400 

REM * Draw rough circle * 

410 

REM 

420 

ORIGIN x,y 


430 

FOR i=0 TO 180 

STEP 20 

440 

ax=r*COS(i) 


450 

ays»r*SIN <i) 


460 

MOVE -ax,ay 


470 

DRAW ax,ay,ic 


480 

MOVE -ax,-ay 
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490 DRAM aK,-ay,ic 
500 NEXT i 
510 RETURN 


100 REM ********** 

110 REM * Spiral * 

120 REM ********** 

130 DEG 
140 MODE 0 
150 ic-0 
160 id-1 
170 CL8 

180 FOR n-602 TO 0 STEP -7 

190 zl-SIN(n>*1.2 

200 z2-C0S(n)*1.3 

210 M-255*(n/3)*zl 

220 y-200+(n/3)*z2 

230 r»n/12 

240 60SUB 430 

250 id-id-t-liIF id-16 THEN id-1 
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260 ic-id 
270 NEXT n 
280 a-1 
290 b-1 

300 a-a-^liIF a»16 THEN a-1 
310 b-a 

320 FOR i-1 TO 15 

330 b»b+l:IF b»16 THEN b»l 

340 INK i,b 

350 NEXT i 

360 GOTO 300 

370 INK l,6tINK 2,3iINK 3,4 
300 FOR i-1 TO 1001 NEXT i 
390 GOTO 280 

400 REIi a******************** 
410 REN * Draw rough circla * 
420 REN «««***«*«»«*»«*«*««** 
430 ORIGIN x,y 
440 FOR i-0 TO 180 STEP 20 
450 ax-r*COS(i) 

460 ay»r*SIN(i) 

470 NOVE -ax,ay 
480 DRAW ax,ay,1c 
490 NOVE -ax,-ay 
500 DRAW ax,-ay,ic 
510 NEXT 1 
520 RETURN 

100 REN a******************* 

110 REN * Spinning planets * 

120 REN a******************* 

130 NODE 0 

140 INK 0,0:BORDER 0 
150 INK 8,2 

160 GOSUB 730:REN *** draw stars 
170 GOSUB 570 
180 x-590:y-200ir-50 
190 GOSUB 370 

200 x-30:y-50:r-66:GOSUB 370 
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210 x-143iy-300:r-22 

220 60SUB 370 

230 REM *********** 

240 REM * Animatd * 

250 REM *********** 

260 a»lib-2 
270 c-9:cl-10 

2B0 a-a+l:IF a-8 THEN a»l 
290 b-b+l:IF b=8 THEN b-1 
300 c=c+llIF c*16 THEN c»9 
310 d*d+l*IF d-16 THEN d«9 
320 INK a,24iINK b,2 
330 INK c,01 INK d,21 
340 FOR j-1 TO 100:NEXT j 
350 GOTO 280 

360 REM ***************** 
370 REM * Draw a planet * 
380 REM * position * 
390 REM * y-y position * 
400 REM * r-radius * 

410 REM ***************** 
420 ORIGIN x,y:col-l:DE6 
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430 FOR j—r TO r STEP S 

440 col-col+ 1 1 IF col-8 THEN col»l 

450 FOR i-tilt TO tilt+180 STEP 2 

460 a-SIN(i)*j 

470 b»COS(i)*r 

480 PLOT a,b,col 

490 NEXT i 

500 NEXT J 

510 RADiFOR i-0 TO PI«2 
520 a-C0S(i)*r:b«8IN(i)«r 
530 MOVE -a,b:DRAW a,b,8 
540 NEXT i 
550 RETURN 

560 REM -»»***«***»**« 

570 REM * Draw lina * 

580 REM a************ 

590 X1-4001y1-200 
600 col-15tk-0 
610 RAD 

620 FOR j-0 TO 200 STEP 7 

630 k-k4-0.1 

640 0RI6IN xl,yl 

650 a-C0S<k)*(J*2):b-5IN(k)*(J*2) 
660 PLOT a,b,col 

670 a»<COS(k)*j)+kib-(SIN(k)*j)+k 
680 DRAW a,b,col 

690 col=col-l:IF col-8 THEN col-15 
700 NEXT j 
710 RETURN 

720 REM ************** 

730 REM * Draw stars * 

740 REM ************** 

750 col =9 

760 FOR y-0 TO 400 STEP 17 
770 xl»INT<12*RND(TIME)+10) 

780 FOR x-0 TO 640 STEP xl 
790 PLOT x,y,col 

800 col»col+l:IF col-16 THEN col-9 
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810 NEXT X 
820 NEXT y 
830 RETURN 

100 REM ************* 

110 REM * Cylinder* * 

120 REM ««««»«***■»**« 

130 MODE 0 
140 DEG 

150 FOR i-0 TO 15 
160 INK 1,0 
170 NEXT i 
180 INK 3,5 

190 FOR i-0 TO 360 STEP 3.21 

200 a-SIN (i)*35 

210 b-C08 (i)*100 

220 PLOT 100+a,150+b,c 

230 DRAM 300-«-a,250-i-b 

240 DRAW 500-^a,150-^b 

250 c-c+1 

260 IF c-16 THEN c-0 
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27e NEXT i 
280 a-1 
290 b-2 
300 a'^a+l 

310 IF a-16 THEN a-1 
320 b=b+l 

330 IF b=16 THEN b»l 

340 INK a,6 

350 INK b,24 

360 FOR j»l TO 20 

370 NEXT j 

380 GOTO 300 


100 REM ###*#***##** 

110 REM * 3D-Cuboa * 

120 REM **««-*««««*«'* 

130 DI 

140 MODE 0 

150 FOR i=l TO 15 

160 INK i,i«2.1 


r 





Computer "Art" 23 


170 NEXT i 
180 INK 0,0 

190 x»INT(600*RND(TIME)+l) 

200 y=INT(400*RND(TIME)+l) 

210 c=INT<12*RND<TIME)+l) 

220 z-INT<100*RND<TIME)+l) 

230 GOSUB 260 
240 GOTO 190 

250 REM ********************* 

260 REM * draw a cuba x,y,z * 

270 REM ********************* 

280 FOR i»l TO z 
290 PLOT x,y+isDRAW x+z,y+i,c 
300 PLOT x+i,y+z:DRAW x+i+z/3,y+z/3+z,c+ 
1 

310 PLOT x+z,y+i 

320 DRAW x+z/3+z,y+z/3+i,c+2 

330 NEXT i 

340 RETURN 


10 REM ************ 

20 REM * Sea sick * 

30 REM ************ 

40 PRINT CHR*<23);"1" 

50 MODE 0 

60 FOR i-0 TO 639 STEP 4 

70 IF INKEY*-" " THEN 160 

80 PLOT 1,0 

90 DRAW i,399,c 

100 x-i/1.6 

110 PLOT 0,x 

120 DRAW 639,X 

130 c-c+1 

140 IF c»16 THEN c-1 

150 NEXT i 

160 a-1 

170 b-2 

180 c-1 
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190 a-a-M 

200 IF a-16 THEN a-1 
210 b-a 

220 FOR i-1 TO 13 
230 b-b-t-l 

240 IF b-16 THEN b-1 

250 INK b,c 

260 IF 1-1 -0 THEN INK 15,0:GOTO 280 

270 INK i-1,0 
200 c-c+1 

290 IF c-16 THEN c-1 
300 NEXT i 

310 IF INKEY*-'"' THEN GOTO 190 
320 GOTO 60 

330 REM * Change C in line 250 to 17 
340 REM « for a different effect 
350 REM * Use space bar to start and 
360 REM * Stop animation 
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100 REM «*««*«*«* 

110 REM * Lines * 

120 REM ««*#*«*«« 

130 REM 
140 MODE 2 
150 BORDER 0 

160 DEF FNa(x)-INT()<«RND(l) )+l 

170 a-FNa(50)-»-50 

180 b«FNa( 100)-1-50 

190 c-FNa<100)-^50 

200 d»FNa(50)-»-lOO 

210 al»FNa(20) 

220 bl-FNa(20} 

230 cl-FNa(20) 

240 dl-FNa(20) 

250 INK 0,OiPAPER 0:CLSiINK l,26tPEN 1 
260 PLOT a,b i DRAW c,d 
270 a"a-»-al I b■b-^bl: c“c-»-cl I d"d+dl 
280 IF a<20 OR a>620 THEN al—al 

290 IF b<20 OR b>380 THEN bl—bl 

300 IF c<20 OR c>630 THEN cl—cl 
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310 IF d<20 OR d>380 THEN dl—dl 
320 IF INKEY*-"" THEN GOTO 260 
330 RUN 


Rotation 

This is a program that can produce some startling effcxts. The idc^a is to generate a 
figure using lines or curves made up from points and then to tell the program to 
rotate the figure a certain number of times to make up a solid figure. 

First, you enter the number of [xiints that will be needed to create your basic 
shape. Then you enter pairs of x,y ctxirdinates in order to map out the shape so as to 
control the level of detail in the final di.splay. 

The program will then ask you how many rotation steps you want. It is a gtxxl 
idea to make this somewhere between 6 and 15 since the .screen gets rather 
crowded with many more. 

We can show you a couple of examples of what is possible. The first .screen shot 
.shows a “wine glass” and the .second .shows you how'to create a jc*wel with many 
facet.s. 

You can have lots of hin with this program. 

100 REM «***»«*»**** 

110 REM * Rotation * 

120 REM ************ 

130 DEG 
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140 MODE 1 

150 LOCATE 16,1 1 PRINT "Rotation" 

160 PRINT 

170 PRINT "Input th« number o-f points yo 
u" 

180 PRINT 

190 PRINT "want to rotata, Then the 'x' 
and" 

200 PRINT 

210 PRINT "'y' co-ordinates of the point 
s" 

220 PRINT 

230 PRINT "and then the number of rotati 
on" 

240 PRINT 

250 PRINT "steps, and I will rotate" 

260 PRINT 

270 PRINT "your object in 3D." 

280 PRINT 

290 PRINT " Press any key to start" 

300 IF INKEY***"" THEN GOTO 300 
310 MODE 2 

320 INK 1,03 INK 0,17 
330 BORDER 17 

340 INPUT "How many points";p 
350 DIM a(p),b(p):PL0T 0,0 
360 CL8 

370 REM **************** 

380 REM * Input points * 

390 REM ***************** 

400 FOR n=l TO p 
410 INK 4,24 
420 LOCATE 1,1 
430 PRINT SPACE*(159); 

440 LOCATE 1,1 

450 INPUT"Input x value ";a(n) 

460 INPUT"Input y value ";b(n) 

470 IF nOl THEN DRAW a<n),b(n),3 
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480 IF n=l THEN PLOT a(n),b(n),3 

490 NEXT n 

500 LOCATE 1,1 

510 PRINT SPACE$<159)| 

520 REM ******************** 

530 REM * Rotate the shape * 

540 REM ******************** 

550 LOCATE 1,1 

560 INPUT "Rotation steps")s 
570 CLS 

580 FOR n-1 TO p-1 

590 FOR q»360 /s TO 360 STEP 360/s 
600 zl^SIN ((q)):z2"C0S((q)) 

610 PLOT 300+ a(n)*zl,120+b(n>+(a(n)/10 

) *z2 

620 DRAW 300+a(n+l)*zl,120+b(n+l)+(a(n+l 

)/10)*z2 

630 NEXT q 

640 NEXT n 

650 REM ********* 

660 REM * Rings * 

670 REM ********* 
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680 FOR n-1 TO p 

690 PLOT 300+«<n)*zl+2l,120+b<n)+(a(n)/l 
0>*z2+z2 

700 FOR q-360/s TO 360 STEP 360/s 
710 zl-SIN ((q)):z2-C0S((q)) 

720 DRAW 300+a<n)*zl+zl,120+b(n)+(a(n)/l 

0)*z2+z2 

730 NEXT q 

740 NEXT n 

The Drawing Program 

We coLild siy a lot about what to use this program for, but all you need to know is 
how to control it. You w'ill soon think up loads of idea.s. 

The cursor keys move the graphics cursor, and other controls are as follows: 

O Toggles between over and draw. When over is selected, the cursor d(x;s not 
di.sturb what it is moving over. When draw is rrsed the cursor leaves a point in 
the current pen colour. 

R Remembers where the cursor is (fix a [xiint). 

1, Draws a line from a [xiint remembered to the cursor. 

11 I lixiates the di.si:)lay at the top of the screen. 

B Draws a box (filled or unfilled). The corners of the box are the current cur.sor 

position and a |X)int remembered. 

C Draws a circle (filled or unfilled). 

P Changes the colour of a jxjn. 

Now you are ready to go. 

100 REM ******** 

110 REM * Draw * 

120 REM ******** 

130 MODE 1 

140 PAPER 01 INK 0,0 

150 PEN 2 

160 LOCATE 18,1*PRINT "Draw" 

170 PEN 1 
180 PRINT 

190 PRINT " Cursor pad moves cursor" 

200 PRINT 

210 PRINT "0 Toggles between over and dr 
aw" 

220 PRINT " When over is used the curso 
r" 
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230 PRINT " does not disturb what it is 

It 

240 PRINT ” moving over." 

250 PRINT " When draw is used the curso 
r" 

260 PRINT " leaves a point in the curre 
nt” 

270 PRINT " pen colour." 

2B0 PRINT "R Remembers where the cursor 
is. " 

290 PRINT "L Draw a line -from cursor to 

II 

300 PRINT " point remebered." 

310 PRINT "U Update display at top of sc 
reen. " 

320 PRINT "B Draw a box (filled of unfil 
led) " 

330 PRINT " corners of box are current 
cursor" 

340 PRINT " position and point remember 
ed. " 

350 PRINT "C Draw a circle (filled or un 
filled)" 

360 PRINT "P Change colour of a pen." 

370 PRINT 

380 PRINT "The display at the top shows 
X and y" 

390 PRINT "co-ordinates and the current 
pen colour" 

400 PRINT 
410 PEN 3 

420 PRINT " Press any key to start" 

430 PEN 1 

440 IF INKEY»«»"" THEN GOTO 440 
450 MODE 0 
460 DEG 

470 x»319sy«200 
480 pn“2 

490 cl*»8PACE*(39) 
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5(30 REM «*»«««**»■»****■»** 

510 REM * Updata acrean * 

520 REM *««««»«««****«■»«* 

530 LOCATE 1,1:PRINT cl* 

540 LOCATE 1,1:PRINT LOCATE 1 

0,1:PRINT ••y=";y;'' “ 

550 LOCATE 16,1:PRINT pn 
560 PLOT x,y,RND(TIME)*15 
570 REM ****************** 

580 REM * Check keyboard * 

590 REM ****************** 

600 a»>INKEY« 

610 IF 0-1 THEN PLOT x,y,15-cciPLOT x,y, 
cc 

620 IF 0-0 THEN PLOT x,y,pn 
630 IF a*-"" THEN GOTO 600 
640 y-y+(a»»CHR*<241) AND y>2)*2-<a*-CHR 
♦<240) AND y<383)*2 

650 x-x+<a*-CHR*<242) AND x>2)*4-(at-CHR 

$(243) AND x<649)*4 

660 IF a$-"o" THEN o-l-o:QOTO 740 

670 pn-pn+(a$»"a'' AND pn>0) - (a$-"d'' AND 

pn<15) 

680 IF a$-"r" THEN xl-x:yl=y 

690 IF a$«”l" THEN DRAW xl,yl,pn 

700 IF a$-''u'' THEN 530 

710 IF a$-’'b” THEN GOTO 810 

720 IF a$-"c" THEN GOTO 980 

730 IF a$-"p'' THEN GOTO 1160 

740 IF 0-1 THEN cc=TEST(x,y):PLOT x,y,cc 

:GOTO 770 

750 PLOT x,y,pn 

760 IF 1-1 THEN DRAW xl,yl 

770 GOTO 600 

780 REM ************ 

790 REM * Draw box * 

800 REM ************ 

810 LOCATE 1,1:PRINT cl$ 

820 LOCATE 1,1:PRINT "filled <y/n)" 
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830 a««INKEY« 

840 IF a»-"y" THEN GOTO 910 
850 IF a*»"n" THEN GOTO 870 
860 GOTO 830 

870 PLOT x,y,pniDRAW x,yl:DRAW xl,yl 
880 DRAW xl,y:DRAW x,y 
890 GOTO 530 
900 REH 

910 FOR i=x TO xl STEP 2*SQN(xl-x) 

920 PLOT i,y,pn:DRAW i,yl 

930 NEXT i 

940 GOTO 530 

950 REIi *««**«*«*« 

960 REM * Circle * 

970 REM ********** 

980 LOCATE 1,1:PRINT cl* 

990 LOCATE 1,1:PRINT ”x ratio , y ratio" 

1000 INPUT xr,yr 

1010 LOCATE 1,1:PRINT cl* 

1020 LOCATE 1,1:PRINT "filled (y/n)" 

1030 a*»INKEY*:IF a*»"" THEN GOTO 1030 

1040 IF a*-"y" THEN f»l ELSE f-0 

1050 FOR i-1 TO ISO 

1060 x2»SIN(i)*xr 

1070 y2=C0S<i)*yr 

1080 PLOT x+x2,y+y2,pn 

1090 IF f»l THEN DRAW x-x2,y+y2 

1100 IF f»0 THEN PLOT x-x2,y+y2 

1110 NEXT i 

1120 GOTO 530 

1130 REM ***************************** 
1140 REM * Change logical pen colour * 
1150 REM ***************************** 
1160 LOCATE 1,1:PRINT clt 
1170 LOCATE 1,1:PRINT "change pen "jpn 
1180 INPUT "to ";cl 

1190 IF cl<0 OR cl>26 THEN GOTO 1160 
1200 INK pn,cl 
1210 GOTO 530 
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We can showyou some of our efforts. The first is a nice landscape and the second 
is a surreali.st computer workstation. 



























Chapter 4 


GAMES OF SKILL 




Wordslide 



For this game, you have to rearrange the letters into alphabetical order 
using the cursor control keys. The difficulty level controls the number 
of shuffles that the letter board g(x?s through before you can start your 

work. 


1013 REM ♦**♦**♦•»***** 

110 REM * Wordslide * 

120 REM **«*«**«««*■»* 

130 REM 

140 MODE 0 : INK 0,0 
150 PAPER 0 : BORDER 0 

160 PEN 1 I INK 1,24 

170 CLS I PEN 1 

180 : 

190 PRINT •' Wordslide” 

200 PRINT " -" 
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210 PEN 2 t INK 2,26 
220 LOCATE 1,3 

230 PRINT "I will shuffl* up '• 

240 PRINT:PRINT "thB puzzle. All you" 
250 PRINT:PRINT "have to do is use" 

260 PRINT:PRINT "the cursor pad to" 

270 PRINT:PRINT "try to rearrange the" 
280 PRINT "order." 

290 PEN 3 : INK 3,6,0 : SPEED INK 20,20 
300 PRINT,,,," Press any key" 

310 PRINT,," to play" 

320 IF INKEY*="" THEN GOTO 320 
330 : 

340 MODE 0 : INK 1,21 : PEN 1 
350 REM 

360 REM «*«««««*«-«■»*«««« 

370 REM * Set Up Board * 

380 REM ««*#**«***#«**«'» 

390 REM 

400 DIM a«(5,5) : DIM b«(5,5) 

410 lisf-"ABCDEFBHIJKLMNOPQRSTUVWX*" 

420 K - 0 

430 FOR i = 1 TO 5 
440 FOR j » 1 TO 5 
450 x"x+l 

460 ai^(i ,j)«MID$(lis$,x,l) 

470 b»(i,j) =* a»(i,j) 

480 NEXT j 
490 NEXT i 

500 a* <3,5)»CHR* <15)+"1*"+CHR*(15)+"2" 
510 b:((5,5)-a$(5,5) 

520 : 

530 GOSUB 1050 

540 X = 5 : y = 5 

550 LOCATE 1,20 : PEN 2 

560 PRINT "Difficulty level" 

570 INPUT "<l-99> "jle 

580 IF le>0 AND re<100 THEN GOTO 610 
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590 LOCATE 9,21 i PRINT " 

600 GOTO 550 
610 CLS 
620 REM 

630 REM ****************** 

640 REM * Scramble Board * 

650 REM ****************** 

660 REM 

670 FOR i « 1 TO le+5 

680 I<»INT<4*RND<1) )+l 

690 SOUND l,k*10,10,10 

700 ON k 60SUB 1170,1260,1350,1440 

710 a*(y,x)»"l*2" 

720 NEXT i 
730 60SUB 1050 
740 : 

750 k*“INKEY* : IF k*»"" THEN GOTO 750 
760 SOUND 1,50,10,5 

770 IF k*-CHR*<240) THEN GOSUB 1170 
780 IF k*»CHR*(241) THEN GOSUB 1260 
790 IF k**CHR*(243) THEN GOSUB 1350 
800 IF k*»CHR*<242) THEN GOSUB 1440 
810 a*<y,x) - "1*2" 

820 GOSUB 1050 
830 REM 

840 REM ************** 

850 REM * Done It??? * 

860 REM ************** 

870 REM 

880 FOR i - 1 TO 5 
890 FOR j - 1 TO 5 

900 IF a»(i,j) <> bJKi,j) THEN 750 

910 NEXT j 

920 NEXT i 
930 : 

940 FOR i « 0 TO 16 
950 FOR j = 0 TO 4 
960 INK 2,i : INK 0,J 
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970 SOUND l,i*5+l,l,5 
980 NEXT j 
990 NEXT i 
1000 : 

1010 INK 0,0 : INK 1,5 : PEN 1 
1020 PRINT:PRINT " You did it" 

1030 END 
1040 : 

1050 FOR i = 1 TO 5 
1060 FOR j = 1 TO 5 
1070 LOCATE j*2+5,i*2+2 

1080 PRINT a#<i,j) 

1090 NEXT j 
1100 NEXT i 
1110 RETURN 
1120 REM 

1130 REM ********** 

1140 REM * Swap 1 * 

1150 REM ********** 

1160 REM 

1170 IF y=l THEN RETURN 
1180 a$(y,x) b: a#(y-l,x) 

1190 y = y - 1 
1200 RETURN 
1210 REM 

1220 REM ********** 

1230 REM * Swap 2 * 

1240 REM ********** 

1250 REM 

1260 IF y»5 THEN RETURN 
1270 a$(y,x) « a^(y+l,x) 

1280 y - y + 1 
1290 RETURN 
1300 REM 

1310 REM ********** 

1320 REM * Swap 3 * 

1330 REM ********** 

1340 REM 
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1350 IF x*5 THEN RETURN 
1360 a»(y,x) •* a*<y,x+l) 
1370 X ■ X + 1 
1380 RETURN 
1390 REM 

1400 REM ««**«*■»«*« 

1410 REM * Swap 4 * 

1420 REM «««««««*«« 

1430 REM 

1440 IF x»l THEN RETURN 
1450 a»(y,x) - a*<y,x-l) 
1460 X " X - 1 
1470 RETURN 



Reverse 



You have to sort a string of nine digits into ascending numerical order. 
You can reverse any number of digits from 1 to 9 from the left-hand 
side. The machine will ask you how many you want. 


IBE) REM 

110 REM * Reverse * 

120 REM ««*«*««««*■» 

130 REM 

140 MODE 01 INK 0,0:PEN 2 
150 BORDER 01 PAPER 0 
160 CLSiINK 1,24:INK 2,5 
170 PRINT •' Reverse" 

180 PRINT " -" 

190 PRINT:PRINT 
200 PEN 1 

210 PRINT" I will display a " 
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220 PRINT"series of numbers" 

230 PRINT"(1-9) which are in" 

240 PRINT"the wrong order." 

250 PRINT"You must get then" 

260 PRINT"bacl< into order." 

270 PRINT "This is done by" 

280 PRINT "REVERSING parts" 

290 PRINT "of the list." 

300 PEN 2 

310 PRINT*PRINT"Press a key to play" 
320 IF INKEYt=""THEN GOTO 320 
330 MODE 0 

340 DIM lis<9),temp(9) 

350 REM 

360 REM *•»*#**♦***♦♦**** 

370 REM * Set Up Board * 

380 REM ««««*««***«*«**» 

390 REM 

400 FOR i = 1 TO 9 

410 place » INT(9*RND<1>)+l 

420 IF 1is(place)<>0 THEN GOTO 410 

430 lis(place)<=i 

440 NEXT i 

450 GOSUB 780 

460 LOCATE 1,5 * PEN 2 

470 PRINT STRING#(20," ") 

480 LOCATE 1,5 

490 INPUT "No. to reverse ";n 
500 IF n<l OR n>9 THEN GOTO 460 
510 REM 
520 REM 

530 REM * Reverse Number * 

540 REM 
550 REM 

560 FOR i - 1 TO n 
570 temp (i )«lis(i ) 

580 NEXT i 

590 FOR i - 1 TO n 
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6B0 1is(i)=temp(n+i-i) 

61B NEXT i 
620 GOSUB 780 
630 REN 

640 REN ««««-»«*««««*«««*« 

650 REN * Check for win * 

660 REN «-»««««««*«««««««« 

670 REN 

680 FOR i = 1 TO 9 

690 IF lis(i) <> i THEN GOTO 460 

700 NEXT i 

710 PRINT:PRINT:PRINT 

720 PRINT "You got it!! ":END 

730 REN 

740 REN 

750 REN « Display * 

760 REN «««*»«*«««« 

770 REN 
780 PEN 1 

790 FOR i - 1 TO 9 
800 LOCATE i«2,l 
810 PRINT lis(i); 

820 NEXT i 
830 PRINT 
840 RETURN 



Flasher 



With the Flasher, you have to repeat a sequence of flashing colours. 
You carry on following the Flasher until eventually he beats you into 
the ground. There are four possible flashing arrows corresponding to 
the cur.sor control keys. You hav'e to repeat the sequence using these 
keys. Our record is a .sequence of 17 (without using pen and paper). If 
you are a genius, the machine will take you up to 255 - and the best 

of luck. 

1019 REM ««»«*««*#«« 

110 REM * Flasher * 

120 REM «««««*«*«*« 

130 REM 

140 record * 17 
150 MODE 0 

160 INK 0,0 I BORDER 0 
170 INK 1,24 I PEN 1 

180 i 
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190 PRINT •' Flashar" 

200 PRINT " -•' 

210 LOCATE 1,4 

220 INK 2,20 : PEN 2 

230 PRINT "Press the cursor key" 

240 PRINT "of the arrow that is" 

250 PRINT "lit by the computer." 

260 LOCATE 1,15 i INK 3,6 : PEN 3 
270 PRINT " Press any key" 

280 PRINT 

290 PRINT " to play" 

300 IF INKEY*="" THEN BOTO 300 
310 PAPER 0 I CLS 

320 INK 1,6:INK 2,2:INK 3,24:INK 4,18 
330 REM 

340 REM ««*«««««*«««««« 

350 REM * Draw Arrows * 

360 REM «»*«»«««#**«*»« 

370 REM 

380 FOR i = 1 TO 10 
390 PLOT 100,200-t-i ,1 : DRAWR 100,0 
400 PLOT 90,206 : DRAW 110,184-<-i*4 
410 PLOT 540,200+1,2 : DRAWR -100,0 
420 PLOT 550,206 : DRAW 530,184+i«4 
430 PLOT 320+1,390,3 : DRAWR 0,-100 
440 PLOT 326,400 : DRAW 305+i»4,380 
450 PLOT 320+1,20,4 : DRAWR 0,100 
460 PLOT 320+1,0 : DRAW 305+1«4,20 
470 NEXT 1 
480 REM 

490 REM ****************** 

500 REM * Display Series * 

510 REM ««*«««*«*««««««*#« 

520 REM 

530 FOR 1 » 1 TO 10: a»-INKEY*iNEXT 1 
540 liB#»"l" 

550 INK 1,0:INK 2,0:INK 3,0:INK 4,0 
560 : 
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570 lisf ® lis* + RIGHT*( STR*( INK 4* 
RND<1))+l),1) 

580 PEN 12 

590 FOR i - 1 TO LENdis*) 

600 a*>«NID*(Iis*,i ,1) 

610 IF atO"!" THEN GOTO 670 

620 INK 1,6 

630 SOUND 1,10,10,15 

640 GOSUB 850 

650 INK 1,0 

660 GOTO 830 

670 IF a*<>"2" THEN GOTO 730 

680 INK 2,2 

690 SOUND 1,20,10,15 

700 GOSUB 850 

710 INK 2,0 

720 GOTO 830 

730 IF a*<>"3" THEN GOTO 790 

740 INK 3,24 

750 SOUND 1,30,10,15 

760 GOSUB 850 

770 INK 3,0 

780 GOTO 830 

790 INK 4,18 

800 SOUND 1,40,10,15 

810 GOSUB 850 

820 INK 4,0 

830 NEXT i 

840 GOTO 910 

850 FOR j«l TO 300 : NEXT j r RETURN 
860 REM 

870 REM ««*««««««■»««*«««««««*** 

880 REM * Input Players Guess * 

890 REM 
900 REM 

910 FOR i X 1 TO LENdis*) 

920 a*-MID*dis*,i ,1) 

930 k*“INKEY* : IF k*»"" THEN 930 
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940 IF k*<CHR»(240) OR k$>CHR^(243) 
THEN 930 

950 IF k*»CHR*<242) THEN INK 1, 6 : 
SOUND 1,10,10,15 

960 IF k*=CHR*<243) THEN INK 2, 2 : 
SOUND 1,20,10,15 

970 IF k*»CHR*(240) THEN INK 3,24 i 
SOUND 1,30,10,15 

980 IF k<=CHRS(241) THEN INK 4,18 ; 

SOUND 1,40,10,15 
990 FOR k=l TO 100 : NEXT k 
1000 IF k*=CHR^(242)AND a*="l” THEN 
GOTO 1050 

1010 IF k»=CHR*(243)AND a#=''2" THEN 
GOTO 1050 

1020 IF k*=CHR»(240)AND a#»"3" THEN 
GOTO 1050 

1030 IF k*=CHR*(241)AND a$*"4" THEN 
GOTO 1050 
1040 GOTO 1290 
1050 FOR j=l TO 4 
1060 INK J,0 

1070 NEXT j 
1080 NEXT i 
1090 REM 
1100 REM 

1110 REM * Series Correct * 

1120 REM ***•»•»#***********•» 

1130 REM 

1140 FOR j « 1 TO 5 

1150 FOR i « 1 TO 4 

1160 INK i,INT(27*RND(1)>+l 

1170 FOR k«l TO 20 : NEXT k 

1180 INK i,0 

1190 NEXT i 

1200 SOUND 1,J«10,10,15 

1210 NEXT j 

1220 FOR i = 1 TO 200 ; NEXT i 
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1230 GOTO 570 
1240 REM 
1250 REM 

1260 REM * Game Over * 

1270 REM **««««*«**««* 

12G0 REM 

1290 FOR i «= 1 TO 10 

1300 SOUND l,10«VAL(a$),10,15 

1310 INK VAL(a*),26 

1320 FOR j=l TO 20 

1330 INK 0,INT(27*RND(1)>+l 

1340 NEXT j 

1350 INK VAL(a«),0 

1360 NEXT i 

1370 length = LENdie*) 

1380 INK 0,0:PAPER 0:MODE 1 
1390 INK 1,24 

1400 PEN 1: PRINT "You Scored "jlength 
1410 IF record > length THEN 1450 
1420 PRINTiPRINT"A new Record!!!” 

1430 record * length 
1440 GOTO 1460 

1450 PRINT:PRINT"The Record stands at 
record 

1460 PRINT:PRINT:PRINT:PRINT 

1470 LOCATE 1,20:INPUT "Another go ”;g* 

1480 IF g*="” THEN 1470 

1490 IF gt«»”y" THEN GOTO 150 

1500 IF g*<>"n" THEN GOTO 1470 



Fruit Machine 



You have a three-window fruit machine with ‘‘random hold after win” 
and six nudges (upwards). You ‘‘pull the arm” with the space bar. If 
nudges show, you must use the space bar to pick up as many nudges 
as possible. Then you nudge the reels with 1, 2 or 3. 


100 REM 

110 REM « Fruit machine * 

120 REM «««««**«#«#'»*«*«« 

130 ENV 1,5,5,2 

140 MODE 1 

150 INK l,2iINK 2,6 

160 INK 3,8iINK 4,18 

170 INK 5,20s INK 6,24 

180 INK 7,26 

190 INK 0,0 

200 INK 8,15s INK 9,7 
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2ia INK 10,17 
220 PEN 6 
230 PEN 3 

240 LOCATE 13,1:PRINT "Fruit machine" 

250 PEN 1 
260 PRINT 

270 PRINT " Press space bar to start ree 
Is" 

280 PRINT 
290 PEN 2 

300 PRINT "Use numbers <1> <2> and <3>" 
310 PRINT "-for hold and nudge" 

320 PRINT 
330 PEN 3 

340 PRINT "Press any key to get nudge nu 
mber " 

350 PRINT 
360 PRINT 
370 PEN 2 

380 PRINT "Press any key to start" 

390 IF INKEY#-"" THEN 390 
400 MODE 0 

410 WINDOW #2,5,1,1,12 

420 WINDOW *3,11,7,1,12 

430 WINDOW *4,17,13,1,12 

440 RESTORE 1610 

450 money-200 

460 DIM a(30),b(30),c(30) 

470 FOR i-1 TO 30 
480 READ ad) 

490 NEXT i 

500 FOR i-1 TO 30 

510 READ b(i) 

520 NEXT i 

530 FOR i-1 TO 30 

540 READ c<i) 

550 NEXT i 

560 FOR i-2 TO 4 
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570 PAPER #i,15 
580 PEN «1,1 
590 CL5 #i 
600 NEXT i 
610 chan"3 
620 al«l 
630 bl-1 
640 cl-1 

650 tl-INT<5*RND<TIME)+4) 

660 t2=INT<10*RND(TIME)+tl) 

670 t3-INT(10*RND(TIME)+t2) 

680 FDR j=l TO t3 
690 IF hl*=l THEN 760 
700 tl-tl-1 
710 IF tl<0 THEN 760 
720 al^^al + l 

730 IF al«31 THEN al-1 
740 chan«2:l«a(al)i60SUB 1700 
750 SOUND 1,15,10,15,1 
760 IF h2*l THEN GOTO 830 
770 t2=t2-l 

780 IF t2<0 THEN SOTO 830 
790 bl=bl+l 

800 IF bl-31 THEN bl-1 

810 chan-3sl-b(bl)tG0SUB 1700 

820 SOUND 1,32,10,15,1 

830 IF h3-l THEN 900 

840 t3-t3-l 

850 IF t3<0 THEN 900 

860 cl-cl-t-1 

870 IF cl-31 THEN cl-1 

880 chan-4:l-c(cl)iGOSUB 1700 

890 SOUND 1,45,10,15,1 

900 REM 

910 NEXT j 

920 IF INT(10*RND(TIME)+1)-10 THEN BOSUB 
2520 

930 60SUB 2210 
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94B IF win OB THEN 60SUB 242(9 
950 money“money+win 
960 GOSUB 2340 
970 GOSUB 2050 

980 IF INT<10*RND<TIME)+l>>8 THEN GOSUB 
1830 

990 LOCATE 1,16 
1000 PEN 10 
1010 PAPER 0 

1020 PRINT "Press a key to start"; 

1030 IF INKEY#-"" THEN 1030 

1040 LOCATE 1,16 

1050 PRINT SPACE#(20); 

1060 GOTO 650 
1070 REM ********** 

1080 REM * orange * 

1090 REM ********** 

1100 PAPER #chan,8 

1110 PEN #chan,0 

1120 PRINT #ch*n,"0 R A"; 

1130 PRINT #chan," N G "; 

1140 PRINT #chan," E "; 

1150 RETURN 
1160 REM ********* 

1170 REM * lemon * 

1180 REM ********* 

1190 PAPER #chan,6 

1200 PEN #chan,0 

1210 PRINT #chan,"LE "; 

1220 PRINT #chan," M 
1230 PRINT #ch*n," ON"; 

1240 RETURN 
1250 REM ******* 

1260 REM * bar « 

1270 PAPER #chan,l 
1280 REM ******* 

1290 PEN #chan,7 

1300 PRINT #chan,"-"; 




54 An Amstrad CPC464 Compendium 


1310 PRINT #chan," BAR "i 

1320 PRINT #chan,"- 

1330 RETURN 
1340 REM 

1350 REM * cherry * 

1360 REM «*««*«#«** 

1370 PAPER #chan,4 

1380 PEN #chan,2 

1390 PRINT #chan/'C H E”; 

1400 PRINT #chan,'' "i 

1410 PRINT #chan,“R R Y“| 

1420 RETURN 

1430 REM ««««««*«««*««■» 

1440 REM * strawberry * 

1450 REM ««««««««««***« 

1460 PAPER #chan,2 

1470 PEN ttchan,4 

1480 PRINT #chan,”8TRAW''| 

1490 PRINT #chan," "i 

1500 PRINT #chan, ••BERRY"! 

1510 RETURN 

1520 REM *«*««*««« 

1530 REM * grape * 

1540 REM «***«*««« 

1550 PAPER #chan,3 
1560 PEN #chan,9 
1570 PRINT #chan," "l 

1580 PRINT #chan,"GRAPE"! 

1590 PRINT #chan," ”! 

1600 RETURN 

1610 DATA 3,3,4,2,3,5,4,2,1,5,4,1,3,5,2 
1620 DATA 5,2,4,3,5,6,5,1,3,2,4,5,2,4,2 
1630 DATA 3,4,5,1,1,3,4,3,1,3,4,2,4,6,1 
1640 DATA 3,5,3,4,2,5,1,3,2,5,4,2,3,4,1 
1650 DATA 3,2,4,1,1,4,5,2,5,3,6,3,2,1,3 
1660 DATA 4,5,1,2,3,4,3,5,3,5,1,5,2,5,1 
1670 REM ««*«»«««««*«*** 

1680 REM * Choose reel * 

1690 REM *«*««««««-»«*««« 
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1700 IF 1*1 THEN GOSUB 1370 
1710 IF 1*2 THEN GOSUB 1100 
1720 IF 1*3 THEN GOSUB 1190 
1730 IF 1=4 THEN GOSUB 1460 
1740 IF 1=5 THEN GOSUB 1550 
1750 IF 1*6 THEN GOSUB 1270 
1760 PEN #chan,7 
1770 PAPER #chan,0 
1780 PRINT #chan, "*»*»*'•« 

1790 RETURN 
1800 REM 

1810 REM * Hold * 

1820 REM ******** 

1830 PAPER 0 

1840 FOR j»l TO 24 

1850 FOR i=0 TO 3 

1860 LOCATE 8,16 

1870 INK 15,i+j 

1880 PEN 15iPRINT "Hold'' 

1890 SOUND l,J*i,2,15 
1900 NEXT i 
1910 NEXT j 
1920 a»*INKEY* 

1930 PAPER 5 
1940 PEN 14 

1950 IF a**"l" THEN hl»liLOCATE 1,13:PRI 
NT "Held" 

1960 IF a**''2'' THEN h2*liLOCATE 7,13iPRI 
NT "Held" 

1970 IF a*-"3" THEN h3-lJLOCATE 13,13sPR 
INT "Held" 

1980 IF a*-''c" THEN GOSUB 2050 
1990 IF a*-" " THEN 2010 
2000 GOTO 1920 
2010 RETURN 

2020 REM ««*«*««*****«** 

2030 REM « Cancel hold « 

2040 REM «**««*«******«* 

2050 PAPER 1 
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2060 PEN 6 
2070 LOCATE 1,13 
2080 PRINT "Hold" 

2090 LOCATE 7,13 
2100 PRINT "Hold" 

2110 LOCATE 13,13 
2120 PRINT "Hold" 

2130 hl«0 

2140 h2-0 

2150 h3-0 

2160 PEN 0 

2170 PAPER 0 

2180 LOCATE 8,16iPRINT " 

2190 LOCATE 1,15sPRINT SPACE*(20); 

2200 RETURN 
2210 win ^=0 
2220 aa«a(al) 

2230 bb«b(bl) 

2240 cc«c(cl) 

2250 IF aa«=l AND bb-1 AND cc-1 THEN win- 
20: GOTO 2300 

2260 IF aa-6 AND bb»6 AND cc-6 THEN win- 
1000: GOTO 2300 

2270 IF aa-6 AND bb-6 THEN win-500:GOTO 
2300 

2280 IF aa-bb AND bb-cc AND cc-aa THEN w 

in-20*a+10sGOTO 2300 

2290 IF aa-bb THEN win-10«aa 

2300 RETURN 

2310 REM *««**««« 

2320 REM « Cash « 

2330 REM «««««««« 

2340 LOCATE 1,24 
2350 PEN 12 
2360 PAPER 0 

2370 PRINT "cash-"jmoney;" " 

2380 RETURN 
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2390 REM **««**«#««««««* 

2400 REM * Display win * 

2410 REM «*«*««**««***«« 

2420 PAPER 0 

2430 PEN 11 

2440 LOCATE 5,21 

2450 PRINT "You Won ";win 

2460 FOR J-1 TO 100 

2470 SOUND 1,J«2.2,1,15 

2480 NEXT J 

2490 LOCATE 5,21 

2500 PRINT BPACE#<13) 

2510 RETURN 
2520 LOCATE 8,16 
2530 PAPER 0 
2540 PEN 2 
2550 PRINT "Nudge" 

2560 FOR J-0 TO 6 
2570 LOCATE j*2+3,15 
2580 SOUND 1,J*10,2,15 
2590 PEN 5 
2600 PRINT J 

2610 IF INKEY*<>"" THEN GOTO 2670 

2620 LOCATE j*2+3,15 

2630 PEN 1 

2640 PRINT j 

2650 NEXT J 

2660 GOTO 2560 

2670 LOCATE 8,16 

2680 PRINT " 

2690 nd-J 

2700 IF nd-0 THEN GOTO 2950 
2710 a««INKEY« 

2720 IF THEN 2710 

2730 IF *♦<>"!" THEN GOTO 2770 

2740 al-al+1 

2750 IF al-31 THEN al-1 

2760 chan-2il-a(al)tGOSUB 1700 
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2770 IF «s><>"2" THEN SOTO 

2780 bl»bl+l 

2790 IF bl-31 THEN bl-1 

2800 chan-3il->b(bl) iGOSUB 

2810 IF a«<>“3" THEN 2850 

2820 cl-cl+1 

2830 IF cl-31 THEN cl-1 

2840 chan*4il*c(ci){608U6 

2850 LOCATE nd«2-t-3,15 

2860 PEN 1 

2870 PRINT nd 

2880 nd-nd-1 

2890 IF nd-0 THEN 2950 

2900 GOSUB 22101 IF wln<>0 

2910 LOCATE nd*2+3,15 

2920 PEN 5 

2930 PRINT nd 

2940 GOTO 2710 

2950 RETURN 


2810 


1700 


1700 


THEN GOTO 940 



Pennies 


s-t s. _ 


Ii4>a ± c::>'k 


O'*** e- 


This is the old tlircc cups and a coin. The difficulty level controls the 
number of shuffles of the cups. As the difficulty level increases, so dtx's 
the number of .shuffles - but so does the speed of the .shuffling. You 
then have to tell the machine where the penny is by entering 1, 2 or 3- 


100 REM «««*«**«**« 

110 REM « Fannies * 

120 REM ««««*«*«*«* 

130 REM 

140 MODE 0 

150 INK 0,0 

160 PAPER 0 

170 CLS 

180 BORDER 0 

190 INK 1,24 I PEN 1 

200 PRINT " Pennies" 





60 An Amstrad CPC464 Compendium 


210 PRINT " -” 

220 PRINTiPRINTS PRINT 

230 INK 2,26 : PEN 2 

240 PRINT " I have three cups" 

2S0 PRINT "under one o-F them is"| 

260 PRINT "a pea. You must try" 

270 PRINT "to -follow the pea as"| 

280 PRINT "I move it around." 

290 INK 3,21,61 PEN 3 t PRINT 
300 PRINT " SOUNDS EASY!" 

310 PRINT " BUT IT'S NOT"iPRINT 

320 PEN 2 SPRINT "Press a key to play" 

330 IF INKEY*-"" THEN GOTO 330 

340 CLS s INK 1,21 s PEN 1 

350 LOCATE 3,2s INPUT "Input level 1--9"|1 

360 CLS s PEN 1 

370 LOCATE 6,5 s PRINT "o" 

380 LOCATE 9,5 s PRINT "o" 

390 LOCATE 12,5 s PRINT "o" 

400 DIM a(3) 

410 pea - INT(3*RND(1) )-i'l 

420 a(pea) - 1 

430 LOCATE 1,1 

440 INK 2,6 s PEN 2 

450 PRINT " The pea starts" 

460 PRINT " under pod number"|pea 
470 PEN 1 
480 REM 

490 REM ******************* 

500 REM * Shuffle Pennies * 

510 REM ******************* 

520 REM 

530 FOR i - 1 TO INT<1*3*RND(1))-M 
540 which - INT(3*RND(l)>-*-l 
550 ON which 60SUB 810,960,1110 
560 NEXT i 
570 REM 
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580 REM 

590 REM * Choose a cup * 

600 REM «««**•»*»«*«*«««* 

610 REM 

620 LOCATE 1,15 

630 INPUT "Which one "jb* 

640 IF b*-"" THEN GOTO 630 

650 IF b*<”l" OR b#>"3" THEN GOTO 630 

660 IF a(VAL(b«)) - 0 THEN 690 

670 PRINT "You got it!!!" 

680 END 

690 PRINT "You missed it" 

700 FOR i - 1 TO 3 

710 IF a<i)-l THEN GOTO 730 

720 NEXT i 

730 PRINT "It was under cup" 

740 PRINT "number "|i 
750 END 
760 REM 

770 REM ********** 

780 REM * Move 1 * 

790 REM ********** 

800 REM 

810 a(0}«a(l)ia<l)-a(2)ia(2)-a(0) 

820 LOCATE 6,5 i PRINT " 

830 FOR loop - 0 TO 3 

840 LOCATE 6+loop,4 i PRINT"o" 

850 LOCATE 9-loop,6 i PRINT"o" 

860 LOCATE 6+loop,4 i PRINT" " 

870 LOCATE 9-loop,6 i PRINT" " 

880 NEXT loop 

890 LOCATE 6,5 i PRINT "o o" 

900 RETURN 
910 REM 

920 REM ********** 

930 REM * Move 2 * 

940 REM ********** 

950 REM 
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960 a (0) -a (1) I a (1) -a <3) I a (3) -a (0) 
970 LOCATE 6,5 i PRINT" o 
980 FOR loop - 0 TO 6 
990 LOCATE 6+loop,4 i PRINT"o” 
1000 LOCATE 12-1OOP,6 i PRINT"o" 
1010 LOCATE 6+1 OOP, 4 i PRINT" " 
1020 LOCATE 12-loop,6 i PRINT" " 
1030 NEXT loop 

1040 LOCATE 6,5 i PRINT"o o o" 
1050 RETURN 
1060 REM 

1070 REM «««««■»«««« 

1080 REM * Mova 3 « 

1090 REM aaaa****** 

1100 REM 

1110 a(0)-a(2)ia(2)-a(3)ia(3)-a(0) 
1120 LOCATE 9,5 i PRINT " 

1130 FOR loop - 0 TO 3 
1140 LOCATE 9+1 OOP, 4 i PRINT"o" 
1150 LOCATE 12-loop,6 i PRINT"o" 
1160 LOCATE 9+loop,4 * PRINT" " 
1170 LOCATE 12-1OOP,6 i PRINT" " 
1180 NEXT loop 

1190 LOCATE 9,5 i PRINT"o o" 

1200 RETURN 



Leapfrog 



You have two groups of frogs. As you may realise, a frog ean leap over 
another one. The object is to make the two groups of frogs change 
places. You enter the number of the frog that will leap. 


10(9 REM «*«**««**«**« 

110 REM « Laap frog * 

120 REM ************* 

130 MODE 1 
140 PAPER 0 

150 ENT 1,5,1,1,10,-1,1,10,1,1,5,-1,1 

160 ENV 1,5,3,1,1,0,16,5,-3,2 

170 INK 0,11 

1B0 INK l,24lINK 2,3 

190 INK 3,16 

200 PEN 3 

210 LOCATE 16,1 1 PRINT "Laap frog" 
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220 PEN 1 
230 PRINT 

240 PRINT "Two groups of frog ars trying 
to" 

250 PRINT "cross tha pond on s Iins of" 
260 PRINT "lily pads, Each frog can Jump 


270 PRINT "ovsr anothar frog onto tha sp 

ara" 

280 PRINT "lily pad." 

290 PEN 2iPRINT 

300 PRINT "Tha objactiva of this gama is 
to " 

310 PRINT "swap all tha yallow frogs to 
brown" 

320 PRINT "frogs and vica varca.“ 

330 PRINT 
340 PEN 3 

350 PRINT "Your scora is how many movas 
it takas" 

360 PRINT "you to mova all tha frogs." 
370 PRINTiPRINT " Prass any kay to sta 
rt." 

380 IF INKEY4-"" THEN 80T0 380 
390 CL8 

400 REM a********** 

410 REM * U.D.B.s « 

420 REM *********** 

430 SYMBOL AFTER 91 

440 SYMBOL 91,0,2,13,31,126,252,242,113 
450 SYMBOL 93,0,64,176,248,254,63,79,78 
460 SYMBOL 94,126,223,227,126,0,0,0,0 
470 DIM a(11) 

480 FOR i-1 TO 5 
490 a(i)-lia(6-i-i)-2 
500 NEXT i 
510 PEN 3 
520 FOR i-1 TO 11 
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530 LOCATE lllPRINT CHR«(94) 

540 r-110 
550 NEXT i 

560 REM ***««*««««**««« 

570 REM * Draw scrMn « 

580 REM *************** 

590 OEGiFOR i-90 TO 181 8TEP 0.36 
600 y-COS(i-i-180)*r 
610 K-SIN(i)*320 

620 PLOT 320-i-)<, 400,1 1 DRAW 320'i-x , 250*y 
630 PLOT 320 -m, 400,1 1 DRAW 320-x , 250-<-y 
640 NEXT i 
650 FOR i-1 TO 8 

660 FOR k1-30 to 630 STEP 529iy-270 
670 x-Kl 

680 xd-RND(TIME)*3-1txd-xd/2 
690 yd—2 

700 FOR j-1 TO RND(TIME)*30+30 

710 x“x+xdiy«y-yd 

720 PLOT x,y,3 

730 NEXT J 

740 FOR J-1 TO 15 

750 x-x+xdiy-y-yd 

760 PLOT x-2,y,2iPL0T x,y,2iPL0T x+2,y,2 

770 NEXT j 

780 NEXT xl 

790 NEXT i 

800 PLOT x+xd,y+4,3 

810 REM ************* 

820 REM * Main loop * 

830 REM ************* 

840 FOR i-1 TO 11 
850 LOCATE 1+1*3,10 
860 PEN «(i) 

870 IF a(i)-l THEN PRINT “C" 

880 IF a(i)-2 THEN PRINT 
890 IF a(l)-e THEN PRINT ** " 

900 LOCATE i*3,14lPRINT i 
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910 NEXT i 

920 LOCATE 3,17iPRINT SPACE*(20) 

930 LOCATE 3,17*PRINT "Frog i-"| 

940 INPUT f 

950 IF f<l OR ^>11 OR -fOINTC-f) THEN 920 
960 IF ji(f)-0 THEN OOSUB 10701 SOTO B40 
970 FOR i-1 TO 111 IF a(i)-0 THEN B-iiBOT 
0 990 
980 NEXT i 

990 IF ABB(s-f)>2 THEN 1050 
1000 x)<>«(«) ia(B)"a(f) ia(-f )*KK 
1010 GOSUB 1260 
1020 PAPER liPEN 2 

1030 ffl-m-fltLOCATE 14,2iPRINT "Novas -"|m 

1040 PAPER 0 

1050 GOSUB 1160 

1060 GOTO 840 

1070 LOCATE 6,1 

1080 PRINT "you cant maks a space Jump" 
1090 FOR i-1 TO 10001 NEXT i 
1100 LOCATE 6,1 
1110 PRINT SPACE*(26) 

1120 RETURN 

1130 REM «««*««««*«*««**** 

1140 REM * Check for win * 

1150 REM *««««*«*«»««*«**« 

1160 FOR i-1 TO 5 

1170 IF a(i)-2 THEN NEXT itGOTO 1190 
1180 GOTO 1210 
1190 FOR i-7 TO 11 

1200 IF a(i>-l THEN NEXT iiGOTO 1220 

1210 RETURN 

1220 GOTO 1420 

1230 REM «»***««*«***«*«**« 

1240 REM * Make frog Jump * 

1250 REM ****************** 

1260 IF s-f<0 THEN ss-lifrog-93 
1270 IF B-f>0 THEN ee—lifrog-91 
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1280 PEN a(B) 

1290 LOCATE 1+f*3,10iPRINT " " 

1300 LOCATE l+-f*3,9iPRINT CHR*<frog) 

1310 FOR l-f*3 TO «*3 STEP -■* 

1320 SOUND 1, (■*3-i)-i-200,15,15,l,l,14 
1330 LOCATE 1-i-i ,9tPRINT CHR«(-Frog) 

1340 FOR J-1 TO 1001 NEXT J 
1350 LOCATE i+l,9sPRINT " " 

1360 NEXT i 

1370 LOCATE i-2* <sb-1 ), 10iPRINT CHR4<-fro 

g> 

1380 RETURN 

1390 REM B************ 

1400 REM * Gama ovar * 

1410 REM ************* 

1420 PAPER liPEN 2 

1430 LOCATE 8,2iPRINT "You did it in "|m 
I" fflovas" 

1440 LOCATE 15,3iPRINT "Play again?" 

1450 a4-INKEY4 
1460 IF a»-"" THEN 1450 
1470 IF a4-"y" THEN RUN 
1480 IF a4-"n" THEN END 
1490 GOTO 1450 




Twister 



Tliis is a multicoloured shuffle cylinder based on an old Hungarian 
puzzle. Full instructions are given in the listing. 


100 REM *«**«*-ii-«*«* 

110 REM * Twi*t«r * 

120 REM «*«**«*«*** 

130 REM 

140 MODE 01 INK 0,0 
1S0 BORDER 01 PAPER 0 
160 CLStINK 1,24 
170 PRINT " Twi»t«r" 

180 PRINT •• 

190 PRINTiPRINTiPRINT 
200 PRINT " Th«r« is no snd to " 
210 PRINT "this puzzls. Just s ” 
220 PRINT "long tims tsksn not " 
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230 PRINT "getting there??? “ 

240 PRINT " Use number pad to 
250 PRINT "move the reels. " 

260 PRINT*PRINT "Press s key to play" 
270 IF INKEY*-"" THEN GOTO 270 
280 CLS 
290 REM 

300 REM a******************* 

310 REM * Randomize Barrel * 

320 REM aaaaaaaaaaaaaaaaaaaa 
330 REM 

340 DIM barrel(3,6) 

350 FOR i - 1 TO 3 

360 FOR j - 1 TO 6 

370 pl-INT<3*RND(l))+l 

380 p2-INT(6«RND(l) )-i*l 

390 IF barrel(pi,p2) <> 0 THEN 370 

400 barrel(pi,p2)-J 

410 NEXT J 

420 NEXT i 

430 barrel(3,6)-0 

440 k-6 I y-3 

450 REM 

460 REM **************************** 
470 REM * Set Up Colours For Reels * 
480 REM **************************** 
490 REM 

500 INK 0,0 t INK 1,24 t INK 2,5 

510 INK 3,6 I INK 4,26 i INK 5,18 

520 INK 6,15 
530 REM 

540 REM ****************** 

550 REM * Display Barrel * 

560 REM ****************** 

570 REM 

580 PEN 6 I PRINT" Twister" 

590 FOR i - 1 TO 3 
600 FOR J - 1 TO 6 
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610 LOCATE j*2+3,1+5*2 

620 PEN barrel(i,J) 

630 PRINT CHRf(143); 

640 NEXT j 
650 NEXT i 
660 REM 

670 REM ***************** 

680 REM * Read Keyboard * 

690 REM ***************** 

700 REM 

710 a4-INKEY4 s IF a*-’"' THEN GOTO 710 
720 IF a*<"l'' OR at>''9” THEN GOTO 710 
730 ON VAL(a4) GOSUB 760,1110,750,770,1050, 
780,790,1210,800 
740 GOTO 590 

750 reel - 3 sGOSUB 980:RETURN 
760 reel - 3 iGOSUB 860:RETURN 
770 reel >> 2 : GOSUB 860: RETURN 
780 reel - 2 iGOSUB 980:RETURN 
790 reel - 1 :GOSUB 860:RETURN 
800 reel - 1 iGOSUB 980:RETURN 
810 REM 

820 REM **************** 

830 REM * Revolve Left * 

840 REM **************** 

850 REM 

860 barrel(reel,0)"barrel(reel,1) 

870 FOR i = 1 TO 5 

880 barrel(reel,i)"barrel(reel,1+1) 

890 NEXT i 

900 barrel(reel,6)"barrel(reel,0) 

910 IF reel " y THEN k"x-1 i IF k"0 
THEN k"6 
920 RETURN 
930 REM 

940 REM ***************** 

950 REM * Revolve Right * 

960 REM ***************** 
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970 REM 

980 barral(real,0)"barral(raalf6> 

990 FOR i - 6 TO 2 STEP -1 

1000 barral(raal,i)“barral(raalti-1) 

1010 NEXT i 

1020 barral(reel,l}>barral(real,0) 

1030 IF raal - y THEN k-x+1 i IF k- 7 
THEN x-1 
1040 RETURN 

10S0 RETURN I REM * Key 5 Pressed « 
1060 REM 

1070 REM ««««««**»««*«««*****« 

1080 REM « Drop a piece down * 

1090 REM ««««**«*«*«««««««*««« 

1100 REM 

1110 IF y«l THEN RETURN 
1120 barrel(y,x)"barrel(y~l,x) 

1130 barrel(y-1,x)"0 
1140 y"y“l 
1150 RETURN 
1160 REM 

1170 REM «**«««**««**«■»*«**« 

1180 REM « Move a piece up * 

1190 REM ******************* 

1200 REM 

1210 IF y-3 THEN RETURN 
1220 barrel(y,x)"barrel(y+l,x) 

1230 barrel(y+l,x)"0 
1240 y"y+l 
1250 RETURN 




Mummies’ Revenge 





You have crash-landed on a remote island whose inhabitants have long 
since died. BUT their long-dead spirits have arisen to chase you away. 
To avoid them you must force them into the lava pits. The cursor 
controls aid your movement, but you are very weak so must hurry 
before you collapse. 


100 REM ****************** 

110 REM « MummivB' ravanga * 

120 REM ****************** 

130 MODE 1 

140 SYMBOL AFTER 91 

1S0 SYMBOL 92,24,24,31,29,24,24,24,28 
160 SYMBOL 91,24,24,248,152,24,24,24,96 
170 SYMBOL 93,1,7,63,19,32,127,63,3 
180 INK 0,0 
190 INK 1,5 
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200 INK 2,8 
210 INK 3,6,24 
220 PAPER 0 
230 BORDER 0 
240 SPEED INK 1,1 
250 p-1 

260 REM *««*««*«*«*««**« 

270 REM * Instructions * 

280 REM **************** 

290 PEN 3 

300 s4«"Mumniies' rsvenge" 

310 60SUB 1860 

320 ..00SU6 1860 

330 PEN 1 

340 s4*"You ars trappsd!! .Tha only way 
of" 

350 80SUB 1860 

360 a4""gstting off tha island is to lur 
a" 

370 eOSUB 1860 

380 a#>"tha Mummias into tha pits that 

ara" 

390 608UB 1860 

400 a4*"dottad around tha placa,0r to la 
t" 

410 80SUB 1860 

420 a4**"thaffisalvas bump into aach othar. 

N 

430 80SUB 1860 

440 a4""Tha controls for moving your" 

450 G08UB 1860 

460 a>B"man ara as follows..." 

470 GOSUB 1860 
480 PAPER 2iPEN 1 
490 a4-“ up "IGOSUB 1860 
500 a«-" "-*-CHR4(244)+" "i608U 

B 1860 
510 a»-" 


I 


"IGOSUB 1860 
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320 ••+CHR*{247)+''“ ”+CHR#<24B) + 

'• -"+CHR4<246)+'' right" 

530 GOSUB 1860 

540 I "IGOSUB 1860 

550 «♦-" "■»-CHR4<245)+" "iBOSU 

B 1860 

560 a4-" down "iGOSUB 1860 

570 PAPER 0 

580 a4a"If you walk into a pit or" 

590 GOSUB 1860 

600 a4>‘"ara caught by a zombi« then you" 
610 GOSUB 1860 

620 a4«"DIE!!!^and the gamm i« over" 

630 GOSUB 1860 

640 a4-CHR4<231)+" hole "+CHR4<92)+" 

zombie" 

650 GOSUB 1860 

660 PEN 3iLOCATE 12,201 PRINT CHR4(231> 
670 PEN 1 

680 a«-""IGOSUB 1860 

690 a*-CHR4(248)+" man "+CHR#<93)+" 

sea 

700 GOSUB 1860 
710 PEN 2ip-24 

720 a4«"PreBS any key to land on the isl 
and" 

730 GOSUB 1860 

740 IF INKEY*-"" THEN GOTO 740 

750 DIM X (15),y(15} ,Kl (15),yl<15),d(15} 

760 MODE 1 

770 REM *****««»«*»*««««**««« 

780 REM * Set everything up « 

790 REM ««*«**«*««««*«««"»««■»* 

800 INK 0,9 
810 INK 1,20 
820 INK 2,24,6 
830 INK 3,16 
840 BORDER 0 
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850 SPEED INK 1,1 

860 zombi«1 ♦-CHR* (15) +" 1 ••+CHR# (92) 

870 2 ombl*r#-CHR*(15) + “1"+CHR*<91) 

880 hole* -CHR*<15)+"2''+CHR*<231) 

890 me* «CHR* < 15) + '• 3 " +CHR* (248) 

900 X»20 
910 Y-12 

920 LOCATE X,Y»PRINT ME* 

930 FOR i«l TO 15 

940 X <i)-INT(32*RND(TIME)+4) 

950 y<i)-INT<20*RND(TIME)+3) 

960 LOCATE x(i),y(i) 

970 PRINT zombie*} 

980 d(i)-0 
990 NEXT i 

1000 FOR i-0 TO 640 STEP 4 
1010 PLOT i,0,ltDRAW i,INT<16*RND(TIME)+ 
1 ) 

1020 PLOT i,3991 DRAW i,399-INT(16*RND(TI 
ME)+1) 

1030 NEXT i 

1040 FOR i-0 TO 399 STEP 4 

1050 PLOT 0,iiDRAW INT(16*RND(TIME)-M),i 

1060 PLOT 640,it DRAW 640-INT(16«RND(TIME 

)+l) ,i 

1070 NEXT i 

1080 REM *«**««««««««« 

1090 REM « Main loop * 

1100 REM a************ 

1110 FOR i-1 TO 15 

1120 xx-INT<30*RND(TIME)+5) 

1130 yy-INT(20*RND(TIME)+3) 

1140 IF TEST(16*xx-8,400-(16*yy))<>0 THE 
N GOTO 1120 

1150 LOCATE XX, yyiPRINT hole* 

1160 NEXT i 
1170 TM-0 

1180 FOR i-1 TO 15 
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1190 tfli-tfli-M 

1200 IF d(i)-l THEN GOTO 1500 
1210 xl (i)-x (i) lyl (i)-y(i> 

1220 IF xdXx THEN x (i )-x (i )-i-l iz«-zombi 
al« 

1230 IF x(i)>x THEN x (i )«x (i )-1 1 z«-zombi 
er* 

1240 IF y(i)>y THEN y(i)-y(i)-l 
1250 IF ydXy THEN yd)-yd)+l 
1260 tx-16*x d)-8ity-40B-(16*y d)) 

1270 REM ««««*«««««*««««**«««««««««* 

1280 REM * Mummy hit Another mummy * 

1290 REM A************************** 

1300 IF TEST<tx,tyX>l THEN 1360 
1310 dd)«lid-d+liLOCATE xd>,yd) 

1320 PRINT •' "I 

1330 LOCATE xl<i),yld)iPRINT " "i 

1340 GOTO 1450 

1350 REM A************ 

1360 REM « Hit A pit » 

1370 REM A************ 

1380 IF TEST<tx,tyX>2 THEN 1420 

1390 dd)-lid-dAli locate x d ) ,y d) iPRINT 

u n I 

1400 LOCATE xl d) ,yl d) iPRINT ” 

1410 GOTO 1450 
1420 LOCATE xd},yd) 

1430 PRINT z«| 

1440 LOCATE xld),yld> 

1450 PRINT " " 

1460 IF d-15 THEN GOTO 1720 
1470 REM AAAAAAAAAAAAAAA 
1480 REM A Move plAyar a 
1490 REM AAAAAAAAAAAAAAA 
1500 a»-1NKEY» 

1510 IF A*-"" THEN GOTO 1630 
1520 xx“xiyy"y 

1530 IF a«-CHR«( 240) AND y>2 THEN y-y-1 
1540 IF a«-CHR«( 241) AND y<24 THEN y-y->-l 
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1550 IF a«-CHR«(242) AND k>2 THEN k-k-1 
1560 IF a*-CHR#<243) AND x<38 THEN K-x+1 
1570 LOCATE xx,yy 
1580 PRINT •• " 

1590 tx-x*16-8ity-408-(y*16) 

1600 IF TEBT<tx,ty)-2 THEN BOTO 1700 
1610 LOCATE x,y 
1620 PRINT ms4| 

1630 NEXT i 

1640 GOTO 1180 

1650 REIi ««*««*««««*«« 

1660 REM * Game over * 

1670 REM *««««*«*«*««« 

1680 GOSUB 1930: PEN 2ta4->"You died"ip-12 
iGOGUB 1860 
1690 BOTO 1770 

1700 GOSUB 19301p-12ia4-"You fell into a 
pit"IGOSUB 1860 
1710 GOTO 1770 

1720 GOSUB 19301p>12ta**"you got all the 
Mufflmiee " 

1730 GOSUB 1860 

1740 a4>"50 bonus time units lost" 

1750 GOSUB 1860 
1760 tm-tm-50 

1770 p-14ia4-"Game Over":GOSUB 1860 
1780 sc-TMia4-i"Score - “•«-8TR4(sc) 18 O 8 UB 
1860 

1790 P-P+ 21 PEN liINK 1,6 

1800 a4>"Do you want to play again?" 

1810 GOSUB 1860 

1820 a4-INKEY4 

1830 IF a4-"y" THEN RUN 

1840 IF a4<>"n" THEN GOTO 1820 

1850 END 

1860 FOR i-1 TO LEN (a4) 

1870 LOCATE 20-LEN(a4)/2'>-i ,piPRINT MID4( 
a4,i,l) 

1880 SOUND l,A8C(MID«(a4,i,l)),1,15 



78 An Amstrad CPC464 Compendium 


1890 FOR j-1 TO SiNEXT j 

1900 NEXT i 

1910 p"p+l 

1920 RETURN 

1930 CLSiPAPER 0 

1940 INK 0,0 

1950 RETURN 



Chapter 5 


“WEAPON” GAMES 




Leveller 



Your plane is running out of fuel and you must land. In order to do so, 
you must knock down every building in sight to prepare your glide 
path. Watch it though, some of the buildings are pretty high. If you do 
land, your next flight out will be tougher because the next city has 
even taller buildings. 


lee REM *#*##****#♦♦ 

110 REM « Lavallar « 

120 REM ************ 

130 MODE 1 

140 PEN liZNK 1,9 

141 INK OfOiPAPER 0 

190 LOCATE 16,1IPRINT "Lavallar" 

199 PRINT 
160 PEN 2 

170 PRINT "Your aircraft is running out 
of fual" 
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18B PRINT 
and. 

185 PRINT 
190 PRINT 
ly •• 

200 PRINT 

y.. 

205 PRINT 
210 PRINT 
the" 

220 PRINT 


"So you must find a place to 1 

"The only place your fuel supp 
"will get you to is an old cit 

"To land you must destroy all 
"buildings.Use the space-bar t 


o drop " 

230 PRINT “your bombs. Be quick as there 
is" 

240 PRINT "little time." 

244 PRINT 

245 PEN 3iPRINT " press any key to 

start" 


250 IF INKEY4-"" THEN GOTO 250 
260 LV-4t8C-0 

270 ENT l,3,4,60iENV 1,4,-3,80 
280 SYMBOL AFTER 90 

290 SYMBOL 91,0,0,128,192,254,255,254,0 
300 SYMBOL 92,0,24,24,24,60,60,126,126 
310 SYMBOL 93,255,153,153,255,255,153,15 
3,255 

320 INK 0,2OilNK l,13iINK 2,21iINK 3,5 
330 B4-CHR4(252} 

340 MODE 1 
350 bK*0iby"0 
360 608UB 740 

370 REM *#««««»****««««-«******* 

380 REM * MAIN LOOP FOR PLANE * 

390 REM a********************** 

400 FOR Y-2 TO 22iF0R X-2 TO 37 
410 PEN 3iLOCATE X,YiPRINT " C"| 

420 IF TEST<<16*X>+1,(16*<25-Y))-1)-1 TH 
EN 540 
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430 IF INKEY$-" " AND F-0 THEN F-I 1 BX-X+ 
liBY-Y+liIF BY>-22 THEN F-0 
440 IF F-0 THEN LOCATE l,liPRINT "SCORE 
"fSCiGOTO 500 

450 LOCATE BX,BYiPRINT " "1 1 BY-BY+11IF B 

Y>-23 THEN F-0 1 GOTO 500 

460 TE-TEST< <16*BX)-2,(16*(25-BY>)+3) 

470 IF TE-1 THEN SC-SC+1 

4B0 LOCATE BX,BYiPRINT CHR4<252) 

490 SOUND 1,100+(BY*30),7,15,1 
500 NEXT XiLOCATE X,YiPRINT " 

510 NEXT Y 

520 GOTO 920 

530 REM ««****«*««*** 

540 REM * EXPLOSION * 

550 REM ««««*****««*« 

560 X-X+1 

570 LOCATE X,YiPRINT " " 

5G0 FOR I-Y TO 23 

590 FOR J-15 TO 0 STEP -2 

600 TAG 

610 PLOT <)<-2)*16, <27-i)*14+J,3 
620 SOUND 1,500-((23-i)*16+J),4,15 
630 PRINT "C"| 

640 INK 3,INT<RND<TIME)*29)+1 
650 NEXT J 
660 NEXT i 

670 SOUND 1,350,1000,1,1,1,21 
6G0 FOR i-1 TO 100 
690 INK 3,RND(TIME)*29 

700 PLOT (k- 2)*16,46,31 DRAW (x-2>*16+(XN 

T(RND(TIME)*100-50)),46+RND(TIME)*90,3 

710 NEXT 1 

720 GOTO 1230 

730 REM ***************** 

740 REM * Draw naw city * 

750 REM ***************** 

760 PEN 1 
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770 FOR i»7 TO 33 

780 X-INT(RND<TIME)*LV)-H 

790 FOR j-1 TO X 

800 LOCATE i,23-J 

810 PRINT "I"! 

820 NEXT J 

830 LOCATE i,23-J 

840 PRINT "N" 

850 NEXT i 
860 PEN 2 

870 LOCATE l,23iPRINT STRING*(40,143) 

880 RETURN 

890 REM ************************** 

900 REM * LANDED!! GO FOR A WALK * 

910 REM ************************** 

920 LOCATE X,Y-liPRINT 

930 FOR I-(X+20)*10-20 TO X*10 STEP -5 

940 TAG 

950 PLOT 1,63,3iPRINT CHR*(250+F) |"|iF 
-1-F 

960 FOR J-1 TO 60INEXT JiSOUND 1,100,1,1 
5 

970 NEXT I 

980 REM ************ 

990 REM * YAHOOOO! * 

1000 REM ************ 

1010 FOR K-1 TO 30 

1020 PLOT I,63iPRINT CHR# <248+F) i" "nF- 
1-F 

1030 FOR J-1 TO 6 O 1 NEXT J 
1040 NEXT K 

1050 REM ************** 

1060 REM * NEXT LEVEL * 

1070 REM ************** 

1080 MODE 0 
1090 PEN 2 

1100 LV-LV+ 31 IF LV>17 THEN LV-17 
1110 LOCATE 6,7iPRINT"NEXT LEVEL" 
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1120 FOR 1-100 TO 0 STEP -4 

1130 FOR J-I TO 0 STEP -7 

1140 SOUND l,J->-10,2,15 

1150 INK 2,J/4 

1160 NEXT J 

1170 NEXT 1 

IISO INK 2,21 

1190 GOTO 340 

1200 REM *««***«*«**«« 

1210 REM « GAME OVER * 

1220 REM «***««****««« 

1230 SOUND 131,100,10,101 MODE OiFOR I-l 

TO ISiINK I,It NEXT It INK 0,0 

1240 FOR I-l TO 15 

1250 SOUND 1,10*1,3,15 

1260 LOCATE 7,It PEN ItPRINT"GAME OVER" 

1270 FOR J-1 TO 301 NEXT J 

1280 NEXT I 

1290 FOR I-l TO 14 

1300 LOCATE 7,ItPEN 0lPRINT " 

1310 FOR J-1 TO 30tNEXT J 
1320 NEXT 11 PEN 15 

1330 PRlNTiPRINT” FINAL SCORE ”|8C 
1340 PEN 12 

1350 PRINT " PLAY AGAIN 7 (Y/N)" 

1360 «4-lNKEY4 
1370 IF THEN RUN 

13G0 IF THEN 1370 

1390 MODE liPEN2iEND 



Strafe 



You are coming in for a low-level bombing run and your orders are to 
kncx'k out everything in sight. Don’t forget that you are running out of 
fuel as well, so kxtk for fuel dumps. The space bar is your bombing 

relea.se mechani.sm. 


100 

REM 

«*«****«*« 

110 

REM 

* Stra-fe * 

120 

REM 

««**«*«**« 

130 

MODE 1 

140 

ENT 

1 ,100,-2,2 

150 

ENV 

1 ,100,2,2 

160 

INK 

l,22iINK 0,01 PAPER 0:PEN 1 

170 

INK 

2,18:INK 3,6 

8 

O 

REM 

««»**««««««««*«« 

190 

REM 

* Instructions « 

200 

REM 

««■»««««*««'»««««« 
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210 LOCATE 17,1«PRINT "Btra-fe" 

220 PRINT 

230 PRINT "You have just -flown past enem 
y lines." 

240 PRINT "and have received orders to b 
omb every" 

250 PRINT "thing in sight." 

260 PRINT "The targets will consist of.. 

II 

270 PRINT 
280 PEN 2 
290 PRINT 

300 PRINT "Houses These will score 

10 points" 

310 PRINT 

320 PRINT "Radar These will score 

20 points" 

330 PRINT 

340 PRINT "Fuel dumps These will give y 
ou an" 

350 PRINT " 20 units of fuel" 

360 PEN 1 
370 PRINT 

380 PRINT "Use the 8PACE BAR to drop you 
r bombs" 

390 PEN 3 
400 PRINT 

410 PRINT " Press any key to start bo 
mbing" 

420 IF INKEY*="" THEN 420 
430 y=3 
440 e—1 

450 REIi «»«««««■»«««« 

460 REM * U.D.G.'8 * 

470 REM 

480 8YMB0L AFTER 91 

490 8YMB0L 91,24,70,223,207,94,24,90,165 
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500 SYMBOL 92,24,60,126,255,211,255,219, 
251 

510 SYMBOL 93,4,124,72,76,126,223,31,63 
520 SYMBOL 94,0,128,192,224,255,248,127, 
0 

530 SYMBOL 95,0,0,96,144,254,255,254,0 
540 SYMBOL 231,0,0,24,60,60,24,0,0 
550 SYMBOL 248,0,0,0,0,0,24,28,62 
560 SYMBOL 247,0,0,0,24,28,62,127,255 
570 SYMBOL 246,60,126,127,255,126,60,24, 
24 

580 SYMBOL 245,0,60,126,255,60,24,24,24 
590 SYMBOL 244,0,24,60,127,28,24,8,24 
600 SYMBOL 243,0,0,24,60,127,28,24,28 
610 SYMBOL 242,0,0,0,8,24,56,28,16 
620 SYMBOL 241,0,0,0,0,8,24,56,28 
630 SYMBOL 240,0,0,0,0,0,0,0,24 
640 FOR i-0 TO 3iINK i,0sNEXT i 
650 MODE 1 

660 PRINT CHR»(22)|"1" 

670 60SUB 1460 

680 PRINT CHR*(22) I "0'' 

690 60SUB 1760 
700 c»3 

710 FOR fu-0 TO 201 STEP 2iB0SUB 17101NE 
XT fu 

720 ah I*-" '• 

730 Bh2*»CHR#(94)+CHR*(95) 

740 PAPER 2 

750 PEN 3t60SUB 10201 PEN 1 

760 PEN 2:LOCATE l,14iPRINT STRIN6«(40,1 

43) 

770 PEN 1 
780 c*-"2’' 

790 FOR i-1 TO 40 
800 60SUB 1290 
810 l««l«-^c« 

820 NEXT i 
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83B INK 0,lit INK 2,18:INK 3,2:INK 1,8 
840 PAPER 2 
850 c-0 

860 REM «««*««««« 

870 REM * start * 

880 REM ««««*«**« 

890 LOCATE 1,13:PRINT !♦ 

900 GOSUB 1290 

910 14-RIBHT*(l*,39>+c* 

920 IF INKEY*«" " AND f»0 AND ■fu>0 THEN 

f“l:fx»21:-fy=y+2 

930 IF f-1 THEN GOSUB 1090 

940 IF eO-1 THEN GOSUB 1380 

950 IF fu-0 THEN y-y+l:IF y>12 THEN 1900 

960 IF fu-0 THEN GOSUB 1020 

970 IF fu>0 THEN GOSUB 1700 

980 GOTO 890 

990 REM ««*«»*«««««««* 

1000 REM * Draw plane « 

1010 REM a************* 

1020 LOCATE 19,ytPRINT shl«; 

1030 LOCATE 19,y»-l:PRINT sh2«) 

1040 TAGOFF 
1050 RETURN 

1060 REM ************* 

1070 REM * Drop bomb * 

1080 REM ************* 

1090 LOCATE fx,fy:PRINT " " 

1100 fx-fx-l:fy-fy+l 
1110 s«-MID«(l«,fx,l) 

1120 IF fy<>14 THEN 1230 

1130 IF s*»"C'' THEN 1180 

1140 IF s«-'*]" THEN BC-sc-»-20t GOSUB 1830 

1150 IF THEN SC-BC+ 10:GOSUB 1830 

1160 IF B«<>" “THEN e-8tpt-fxtf-0tRETURN 

1170 GOTO 1230 

1180 f u-f u-i’20: IF fu>198 THEN fu-198 
1190 SOUND 1,184,200,1,1,1 
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1200 c-3ii-fu I FOR -fu-l TO i STEP 2iB08U 
B 1710:NEXT fu 
1210 -fu^i 

1220 c-0tGOTO 1160 

1230 IF fy-14 THEN ^-0;RETURN 

1240 LOCATE fx,fyiPRINT CHR*(231) 

1250 RETURN 

1260 REM *«««*««««««««««***««*■»««■» 

1270 REM * Next bit of landscape * 

1280 REM «««»*•»««•»«««#«****««*#-»«« 

1290 a=INT (20*RND<TIME)+1) 

1300 IF a<14 THEN c*-" ” 

1310 IF a<16 AND a>14 THEN ct-"]'' 

1320 IF a<19 AND a>16 THEN 
1330 IF a-20 THEN 
1340 RETURN 

1350 REM ««■»««*««««««« 

1360 REM * Explosion * 

1370 REM a************ 

1380 pt-pt-1 

1390 1♦«LEFT» <1#,pt)+CHR*(240+e)+RIGHT*( 
!♦,(39-pt)) 

1400 e-e-ltIF e«-l THEN RETURN 

1410 SOUND l,550->-pt*10'»-e,8,15,2,2,e+3 

1420 RETURN 

1430 REM ***«*«««***«««««*« 

1440 REM * Draw mountains * 

1450 REM *«*#«««*«««******« 

1460 PEN 2 

1470 FOR i-1 TO 13 

1480 LOCATE l,iiPRINT STRING*<i,143)|CHR 
*(215) 

1490 LOCATE 16,ixPRINT STRING*<i*2,143); 
CHR*(215) 

1500 LOCATE 40-i,i 
1510 PRINT CHR*<214)i 
1520 PRINT STRING*(i,143) 

1530 LOCATE 16-i,i*PRINT CHR*(214)i8TRIN 
G*(i,143) 
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1540 NEXT i 

1550 PAPER 0:PEN 1 

1560 PLOT 500,280,11 DRAW 420,200 

1570 PLOT 128,290sDRAW 32,196 

1580 i1-300 

1590 K1-400 

1600 FOR i»300 TO 200 STEP -15 
1610 xx-INT <40*RND(TIME)+390) 

1620 aa-aa+2 

1630 FOR j = l TO aasPLOT xx+j*2,i,0sDRAW 

xl+j*2,ilsNEXT j 

1640 xl-xxsil-i 

1650 NEXT i 

1660 RETURN 

1670 REM ******** 

1680 REM * Fuel * 

1690 REM ******** 

1700 -fu-fu-l 

1710 PLOT 300+-fu,120,csDRAW 300+fu,150 

1720 RETURN 

1730 REM ************ 

1740 REM * Fuel box * 

1750 REM ************ 

1760 PLOT 296,116,lsDRAW 296,154sDRAW 50 
4,154 

1770 DRAW 504,116sDRAW 296,116 
1780 LOCATE 24,20sPRINT "FUEL" 

1790 RETURN 

1800 REM ***************** 

1810 REM * Display score * 

1820 REM ***************** 

1830 PAPER 0 

1840 LOCATE 2,18sPRINT "SCORE =";sc 
1850 PAPER 2 
1860 RETURN 

1870 REM ************* 

1880 REM * Game over * 

1890 REM ************* 

1900 OOSUB 1020 
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1910 FOR i-1 TO 100 
1920 PLOT 16*19,176,3 

1930 SOUND 1,100*RND(TINE)*50,1,13,2,2,R 
ND<TIME)*14+1 

1940 DRAW 16*19-HNT(150*RND(TINE)-75) ,17 
6+INT (59*RND (TIME) •»-50) 

1950 INK 3,RND (TIME)*25 
1960 NEXT i 

1970 PAPER 0tINK 0,0iINK 1,15 
1980 INK 2,2 
1990 INK 3,13 
2000 CLS 

2010 LOCATE 15,2iPRINT "Out o-f fuel" 

2020 PEN 2 

2030 LOCATE 16,6tPRINT "Game over " 

2040 PEN 3 

2050 LOCATE 12,lliPRINT "Final score 
sc 

2060 LOCATE 16,14iPRINT "Play again?" 
2070 a«-INKEY« 

2080 IF a«-"" THEN 2070 
2090 IF a*-"y" THEN RUN 
2100 IF a*-"n" THEN END 
2110 GOTO 2070 



Mortar 



Try to lob a mortar shell at the on-coming tank. Use the t and j keys 
to control the angle of the mortar, and the to fire. Just one small 
problem though - kncx'k out any protected buildings and you are in 

trouble. 


100 

REM 

«*««««*««« 

110 

REM 

* Mortar 

* 

120 

REM 

#«*««■»*««« 

130 

MODE 1 


140 

DEG 



150 

INK 

0,0 


160 

INK 

1,24,0 


170 

INK 

2,22 


180 

INK 

3,0,24 


190 

LOCATE 17,1 


200 

SPEED INK 10, 

10 

210 

PEN 

1 
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220 REM 

230 REM « Instructions * 

240 REM «««#«#***«*««*'»« 

250 PRINT "Mortar" 

260 PRINT 
270 PEN 2 

280 PRINT "An Enemy tank has broken thro 
ugh your" 

290 PRINT "defences,And is heading for y 
our Capital" 

300 PRINT "as a last resort a mortar has 
been set" 

310 PRINT "up for you to use to try and 
stop the" 

320 PRINT "tank." 

330 PRINT "When a shell is loaded into t 
he mortar" 

340 PRINT "the power will be displayed a 
t the " 

350 PRINT "bottom of the screen." 

360 PRINT "Next to the power will be a d 
isplay" 

370 PRINT "for the angle." 

380 PRINT "Using the up and down cursor 
controls" 

390 PRINT "adjust the angle of the morta 
r. " 

400 PRINT "When you think the trajectory 
of the" 

410 PRINT "bomb is correct then press th 
e cursor" 

420 PRINT "space bar." 

430 PEN 3 
440 PRINT 

450 PRINT " Press any key to start" 

460 IF INKEY*-="" THEN GOTO 460 
470 REM ««*««****««*«* 

480 REM « Initialize * 

490 REM *««#*««*««*««« 
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SOB MODE 0 

510 SYMBOL AFTER 91 

520 SYMBOL 91,0,62,254,28,126,129,129,12 
6 

530 anglea45 
540 tank -640 

550 TAB*PLOT tank,49,9sPRINT CHR4(91)|" 

”;s TAGOFF 
560 g«24 
570 GOSUB 1430 

580 power -INT<50*RND(TIME)+90> 

590 GOTO 700 
600 PEN 6 
610 PAPER 5 

620 LOCATE 1,248 PRINT "Power - power 
630 PEN 7 

640 LOCATE 1,258PRINT "Angle - "jangle 
650 FOR i«l TO 30:a*-INKEY4sNEXT i 
660 PAPER 0 
670 at-INKEY* 

680 IF at-"" THEN GOTO 670 
690 IF at-" " THEN 810 
700 PLOT 0,35,0 

710 DRAW SIN(90~angle)«20,COS(90-angle)* 
20+35 

720 PLOT 0,35,0 

730 IF at-CHRt(241) AND angle >0 THEN an 
gle-angle-1 

740 IF at-CHRt(240) AND angle <90 THEN a 

ngle-angle+1 

750 PLOT 0,35,8 

760 DRAW SIN(90-angle)*20,COS(9B-angle)* 
20+35 

770 GOTO 600 

780 REM ************* 

790 REM * Main loop * 

800 REM ************* 

810 DEG 
820 snd-S50 
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830 rapawsr''2«SIN (2/«ngle)/g 
840 h*>(powsr*8IN(anglB) }''2/(2*g) 

850 sta2«power*8IN(angl8)/g 
860 IF st>0 THEN st»l 
870 FOR t=0 TO St STEP st/100 
880 xl«x 
890 yl"y 

900 x*>INT(powBraCOS(angle)*t) 

910 yl»y 

920 y-INT((poweraSIN(angle)-g*t/2)at) 
930 snd«snd+(yl-y) 

940 SOUND l,snd,10,15 

950 IF TEST(x,y+35)-l THEN GOTO 1330 

960 IF TEST(x,y+35)-9 THEN BOTO 2030 

970 IF TEST(x,y+35)-10 THEN BOTO 2060 

980 PLOT x,35+y,5 

990 PLOT xl,35+yl,0 

1000 NEXT t 

1010 REN aaaaaaaa«aaa« 

1020 REN a Explosion a 

1030 REN a«aaaaaa*aaaa 

1040 c-0 

1050 LOCATE 1,1 

1060 PRINT CHR#(23) j''I'' 

1070 FOR i*x-25 TO x+25 
1080 PLOT x,35,csDRAW i,80 
1090 c“c+0.3 

1100 SOUND 1,500-^1,2,15,1,1,8 
1110 NEXT i 
1120 c-0 

1130 FOR i-x-25 TO x-^25 

1140 PLOT X, 35, C! DRAW 1,80 

1150 c"C-*-0.3 

1160 NEXT 1 

1170 LOCATE 1,1 

1180 PRINT CHR*(23)|"0" 

1190 REN a*a*aaa«a*«*a 
1200 REN a Nove tank a 
1210 REN aaaaaaaaa*a«a 
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122(9 FOR i-i TO 20 
1230 tank*tank-l 

1240 TABiPLOT tank,49,PRINT CHR*{91)j" 
; I TABOFF 

1250 IF TEST(tank-10,37)-10 THEN xx-vl+3 
OiBOSUB 18601BOTO 2100 
1260 NEXT i 

1270 PLOT x,y+35,0iPL0T x2,yl+35,0 
1280 BOTO 580 
1290 END 

1300 REN ««*»««**«-»«*«»«**«*«**««« 

1310 REN * Blow hola in mountain * 

1320 REN «*«««««««««*«**«-»«*«**»»« 

1330 PLOT x,y+35,0:PL0T Kl,yl+35,0 
1340 ORIBIN x-10,35-i-y-10 
1350 FOR i-1 TO 30 

1360 PLOT INT<20*RND(TINE)+1),INT(20*RND 

(TINE)+1),0 

1370 NEXT i 

1380 ORIBIN 0,0 

1390 BOTO 1220 

1400 REN «««««*****««**«*«'»**■»***«« 

1410 REN * Draw up screan display * 

1420 REN »««««-»«*****»««»«***»■»**** 

1430 INK 0,11 

1440 INK l,18iREN Hills and grass 

1450 INK 2,0 

1460 INK 5,0iREN Bomb 

1470 INK 6,2 

1480 INK 7,6 

1490 INK 8,26 

1500 INK 9,9 

1510 INK 10,3 

1520 INK 11,6,15 

1530 INK 12,24,6 

1540 INK 13,15,24 

1550 SPEED INK 1,1 

1560 x-150 

1570 y-INT(60*RND(TINE)-»-50) 
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ISBB PLOT X,33,1 1 DRAW K,33-i'y 

1S90 PLOT 190-t-(150-x) ,33iDRAW 15e-i>(150-x 

),33+y 

1600 y-y-RND(TIME) 

1610 IF y<0 THEN GOTO 1630 

1620 x»x-0.5iGOTO 1360 

1630 PLOT 0,331 DRAW 640,33 

1640 PAPER 3 

1630 FOR i-24 TO 23 

1660 LOCATE l,iiPRINT 3PACE»(20)| 

1670 NEXT i 

1680 PAPER 0 

1690 vl-130-«-(130-x)-i-20 

1700 ORIGIN vl,33 

1710 FOR i-1 TO 20 

1720 PLOT 1,0,101 DRAW 1,13 

1730 PLOT 20-M/2,0zDRAW 20-»-l/2,201DRAW 2 

3,37 

1740 NEXT 1 

1730 FOR 1-1 TO 36 STEP 6 
1760 h=INT(3*RND(TIME)+2>ih-h*3 
1770 FOR J-1 TO 6 

1780 PLOT 34+1*2+j,01 DRAW 34+1*2+j,h 

1790 NEXT j 

1800 NEXT 1 

1810 ORIGIN 0,0 

1620 RETURN 

1830 REM *«*»*«** 

1840 REM * Nuke * 

1830 REM ******** 

1860 c-11 
1870 RAD 

1880 FOR 1-0 TO 40 

1890 PLOT XX, 1+33,ctDRAW xx+33,1+33 
1900 c»c+l;IF c-14 THEN c-11 
1910 NEXT 1 

1920 FOR 1-0 TO PI*2 STEP 0.1 
1930 x-COS(l)*40iy-SIN(l)*30 
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1940 PLOT xx+x+20,90+y,c 
1950 DRAW xx-x+20,90+y 
1960 SOUND 1,200-M«x,2,15,l,l,15 
1970 c-c+liIF c-14 THEN c-11 
1980 NEXT i 

1990 FOR i-1 TO 15001 NEXT i 
2000 MODE 1:PAPER 0:INK 0,0:PEN liINK 1, 
6 

2010 INK 2,20 
2020 RETURN 

2030 XX-tank-1'4iGOSUB 18601 LOCATE 13,1 
2040 PRINT "You hit tha tank” 

2050 GOTO 2120 

2060 xx-vl->-15iG0SUB 1860 

2070 LOCATE 10,1 

2080 PRINT "You blew tha villaga up” 

2090 GOTO 2120 
2100 LOCATE 10,1 

2110 PRINT "Tha tank hit tha city" 

2120 LOCATE 16,10:PEN 2 
2130 PRINT "Gama ovar" 

2140 LOCATE 11,12:PEN 3iINK 3,24 
2150 PRINT "Final scora -"jtank-vl 
2160 LOCATE 13,14iPEN 1 
2170 PRINT "Play again ?"| 

2180 at-INKEY* 

2190 IF a*-"y" THEN PRINT "Y8 b"iFOR i-1 
TO 1000:NEXT i:RUN 

2200 IF at-"n" THEN PRINT "No":FOR i-1 T 
0 1000:NEXT i:END 
2210 GOTO 2180 




Chapter 6 


MODERN GAMES 




Batter 



You have seven balls to try and batter your way through my wall. Use 
the and -► keys to control the bat. If you get through, you get an 
extra ball each time. Tty to build a big score. 

100 REM ********** 

110 REM * Batter * 

120 REM ****-»***«« 

130 MODE 1 

140 INK l,6iINK 2,2iINK 3,24 
1S0 DIM a(S,19) 

160 PAPER 0tINK 0,0 
170 REM **************** 

180 REM * Instruct!one * 

190 REM **************** 

200 LOCATE 17,1 
210 PEN 1 
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220 PRINT "Batter" 

230 PRINT CHR»(22)|"1" 

240 LOCATE 17,1 
250 PEN 2 

260 PRINT "_" 

270 PRINT CHR*<22)|"0" 

280 PRINT 

290 PRINT "Controls" 

300 PRINT 

310 PRINT "<Cursor left> Move bat to th 
e left" 

320 PRINT "<Cursor right> Move bat to th 
e right" 

330 PRINT "Knock the bricks out of the w 


all by" 

340 PRINT "directing the ball with the b 


at. " 


350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 


PRINT 


PRINT "<1> 

batter" 

PRINT "<2> 

batthrough" 

PRINT "<3> 

'who cares ????'" 

PEN 3 


PRINT 


PRINT " 

Press 1,2 or 3" 

a»=INKEY# 


IF a#-"" THEN 

420 


flag=l 
f*0 

IF a«-"l" THEN flag-1sBOTO 500 
IF a«-"2" THEN flag-0teOTO 500 
IF a4»"3" THEN f-l:GOTO 500 
GOTO 420 
MODE 0 
SC-02 bl-7 

INK 1,2:INK 2,6:INK 3,24iINK 4,18 
INK 5,20:INK 6,6:INK 7,8:INK 8,15 
INK 9,9 
INK 10,26,2 
FOR i»3 TO 7 
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570 FOR j»2 TO 19 
580 

590 NEXT JI NEXT i 
600 SPEED KEY 1,1 
610 60SUB 1060 
620 cn*0 
630 x-15 

640 bx-INT(14*RND<TIME)+3) 

650 by-10 
660 bxd—1 
670 byd—1 

680 REN ***■»«»■»«***«* 

690 REM * Main loop * 

700 REM ************* 

710 GOSUB 770 

720 QOSUB 870 

730 GOTO 710 

740 REM ************ 

750 REM * Mova Bat * 

760 REM ************ 

770 a»-INKEY# 

780 IF a#-CHR#(242) AND x>l THEN x-x-1 
790 IF a#-CHR#<243) AND x<16 THEN x-x+1 
800 LOCATE x,25 
810 PEN 9 

820 PRINT •' •• I STRING# <3,206) j " "i 
830 RETURN 

840 REM ************* 

850 REM * Nova ball * 

860 REM ************* 

870 xl=bx 
880 yl“by 
890 bx»bx+bxd 

900 IF bx<3 OR bx>18 THEN bxd>-bxd 

910 by“by-»-byd 

920 IF by<3 THEN byd—byd 

930 IF by >23 AND (bx<x OR bx>X'i-4) THEN G 

OTO 1480 
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940 IF by>23 THEN byd—bydi IF bK>3 AND b 
x<17 THEN bx=bx+bxd 

950 IF by>2 AND by<B THEN xx-8-byiBOSUB 
12B0 

960 LOCATE xl,yl 
970 PRINT •' '• 

9B0 LOCATE bx,by 
990 PEN 8 

1000 INK B,INT<24*RND(TIME)+1) 

1010 PRINT CHR*(230) 

1020 RETURN 

1030 REIi ***«««**-»«'»«« 

1040 REIi * Draw wall * 

1050 REM a************ 

1060 FOR i»3 TO 7 

1070 FOR j-19 TO 2 STEP -1 

1080 IF a(i-2,J)-0 THEN GOTO 1130 

1090 SOUND l,J«(i/2),1,10 

1100 PEN i 

1110 a-10-iI LOCATE J,a 
1120 PRINT CHR«(143) 

1130 NEXT j 
1140 NEXT i 
1150 PEN 1 

1160 FOR i-24 TO 1 STEP -1 
1170 LOCATE l,i 
1180 PRINT CHR«(143) 

1190 LOCATE 20,i 
1200 PRINT CHR*<143) 

1210 SOUND l,i«10,2,10 
1220 NEXT i 

1230 LOCATE l,liPRINT STRING*(20,143); 
1240 RETURN 

1250 REM «*«■»«*#«*«**«*«*««**** 

1260 REM * Update wall status * 

1270 REM a********************* 

1280 yy»INT(bx) 

1290 IF a(xx,yy}-0 THEN 1380 
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1300 IF f-1 THEN flag -INT(RND(TiriE)-i-l) 

1310 IF flag-1 THEN byd—bydiGOTO 1320 

1320 sc-sc-t-xx 

1330 a<xx,yy)-0 

1340 SOUND l,xx«100,4,10 

1350 cn-cn+1 

1360 IF cn-90 THEN GOSUB 16401bl-b+1iGOT 
0 560 

1370 GOSUB 1420 
13S0 RETURN 
1390 REM «««***««« 

1400 REM « Scora * 

1410 REM **«**««»« 

1420 PAPER 1 
1430 PEN 10 

1440 LOCATE l,liPRINT "acora -"lac 

1450 LOCATE 14,liPRINT "ball”|bl 

1460 PAPER 0 

1470 RETURN 

1480 bl-bl-1 

1490 GOSUB 1640 

1500 IF bl-0 THEN 1530 

1510 GOSUB 1420 

1520 GOTO 630 

1530 PEN 2 

1540 PRINTiPRINTiPRINTiPRINT:PRINT:PRINT 
1550 PRINT "You ara out of balls" 

1560 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 
:PRINT:PRINT:PRINT:PRINT 
1570 PEN 4 

1580 PRINT " Play again ?" 

1590 PRINT:PRINT:PRINT:PRINT 
1600 a«-INKEY* 

1610 IF a*-"y" THEN RUN 
1620 IF a*-"n" THEN END 
1630 GOTO 1600 

1640 FOR i-1 TO 20 :SOUND 1,i«5+<i/2),8, 
10:NEXT i 
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1630 CLSieOSUB 1060 
1660 RETURN 



Colours 



This one will really try you out. You have to get through a set of 
coloured bricks using •»- , and t • You can only go up if the 
path is the same colour as the brick at the top. It all gets faster with 
difficulty level but as well as the colour of the top bricks changing, 
now they are all different colours. 


100 REM ««**««*#«*« 

110 REM * Colours * 

120 REM «««««****«« 

130 REM 

140 MODE 0 I PAPER 0 tINK 0,0 
150 CLS I INK 1,24 
160 LOCATE 1,1I PEN 2 
170 PRINT •• Colours" 

180 PRINT " -" 

190 PRINTiPEN 1 








110 An Amstrad CPC464 Compendium 


200 PRINT " Use the arrow kay" 

210 PRINT "to get to the top" 

220 PRINT "You can only move" 

230 PRINT "up if the equare" 

240 PRINT "above you is the " 

290 PRINT "saffle colour ae the" 

260 PRINT "one at the top." 

270 PEN 2iINK 2,9 

280 PRINTiPRINT 

290 PRINT"Presa a key to play" 

300 IF INKEY*-""THEN BOTG 300 
310 DIM maze(10,6),top(6) 

320 MODE 0:INK 0,0 

330 PAPER 01 BORDER 0 

340 INK 1, 2iINK 2, 6iINK 3,18 

390 INK 4,26iINK 9,24iINK 6,17 

360 clock - 300 

370 PEN 1 

380 REM 

390 REM a*************** 

400 REM a Set Up Board a 
410 REM aaaaaaaaaaaaaaaa 
420 REM 

430 pK - 10 : py - 10 

440 FOR i - 1 TO 10 

490 FOR j - 1 TO 6 

460 maze(i,j)-0 

470 NEXT j 

480 NEXT i 

490 FOR i - 1 TO 10 

500 FOR j»l TO 6 

510 place-INT<6aRND(l) >-1-1 

520 IF mazed ,place)<>0 THEN GOTO 510 

530 maze (i,place)-J 

540 NEXT j 

550 NEXT i 

560 REM 
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5761 REM ##**««****«*»«* 

5BB REM * Print Board » 

590 REM *************** 

600 REM 
610 DI 

620 FOR i - 1 TO 10 
630 FOR J « 1 TO 6 
640 LOCATE < j-1) *3-»-2,i+5 
650 PEN mazs(i,J) 

660 PRINT STRIN6«(3,143); 

670 NEXT j 

680 NEXT i 

690 LOCATE px,py+5 

700 PAPER maza(py, INT( (px-*-!)/3)} 

710 PEN 0 t PRINT CHR*(255)| 

720 El 

730 GOSUB 1330 

740 EVERY 300-1aval*5 GOSUB 1330 
750 REM 

760 REM ************* 

770 REM * Main Loop * 

780 REM ************* 

790 REM 

800 DIia«-INKEY« 

810 clock ■* clock -1 

820 LOCATE 5,18 \ PAPER 4 ( PEN 0 

830 PRINT "Tima « ";clock 

840 IF clock - 0 THEN GOTO 1520 

850 El 

860 IF a«>"" THEN GOTO 800 

870 IF a<:<CHR»<240) OR a*>CHR* (243) THEN 

GOTO 800 

880 DI 

890 abova’^maze (py-1, INT (<px + l) /3> ) 

900 underamaze(py,INT<(px+l)/3)) 

910 IF a«<>CHR*(242) THEN GOTO 1020 
920 IF px < 3 THEN GOTO 800 
930 LOCATE px,py+5 
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940 PAPER underI PEN under 

950 PRINT CHR»(143) 

960 px = px -1 

970 underamaze (py, INT ((px-t-1)/3)) 

980 LOCATE px,py-i-5 

990 PAPER under8 PEN 0 

1000 PRINT CHR4(2S5)| 

1010 GOTO 800 

1020 IF a«<>CHR«(243) THEN GOTO 1130 
1030 IF px > 18 THEN GOTO 800 
1040 LOCATE px,pyt-5 

1050 PEN under 

1060 PRINT CHRX143)} 

1070 px “ px •►I 

1080 underafflaze(py,INT((px+l)/3)) 
1090 LOCATE px,py+5 

1100 PAPER under:PEN 0 

1110 PRINT CHR4(255); 

1120 GOTO 800 

1130 IF above<>top(INT( (px-fl)/3)} THEN 
GOTO 800 

1140 LOCATE px,py+5 

1150 PEN under 

1160 PRINT CHR*<143)| 

1170 py a py -1 

1180 underamaze (py, INT ((px-i-l > /3)) 

1190 LOCATE px,py+5 

1200 PAPER under8 PEN 0 

1210 PRINT CHR*(255)i 

1220 IF py>l THEN GOTO 800 

1230 level a level 1 

1240 EVERY 5000 GOSUB 1330 

1250 El 

1260 GOTO 320 

1270 REM 

1280 REM 

1290 REM a**************** 

1300 REM * Draw Top Line a 
1310 REM aaaaaaaaaaaaaaaaa 
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1320 REM 

1330 Dll IF Isvel > S THEN 60T0 1420 

1340 placs-INT(6*RND(l) )-i‘l 

1350 FOR i - 1 TO 6 

1360 top(i)"place 

1370 NEXT i 

1380 LOCATE 2,1 

1390 PEN place 

1400 PRINT STRING«(18,143)) 

1410 ElI RETURN 

1420 FOR i - 1 TO 6ttop(i)"0iNEXT i 

1430 FOR i - 1 TO 6 

1440 place-INT(6*RND(l) )-i-l 

1450 IF top(place)<>0 THEN BOTO 1440 

1460 top(place)"! 

1470 LOCATE <place-1)*3+2,1 
1480 PEN top(piace) 

1490 PRINT STRINe#(3,143)I 

1500 NEXT i 

1510 ElI RETURN 

1520 LOCATE 6,1 

1530 PEN 01 PAPER 4 

1540 PRINT "Out o-f time" 

1550 END 



Demon Driver 



Have you got what it takes to become a top racing driver? Zip round 
the course as fast as you can and as the difficulty level gtx;s up so does 
your speed - but the road gets narrower. The controls are and -► 


100 REM ##*###********#* 

110 REM * Demon driver * 

120 REM ***««««*««*««««« 

130 MODE 1 

140 INK 1,6:INK 2,17:INK 3,18 
1S0 PEN 1 

160 LOCATE 14,1:PRINT "Demon driver" 

170 PRINT 

180 PRINT "Drive your racing car down th 
e road" 

190 PRINT "for as long as possible." 







Demon Driver 115 


200 PRINT "If you hit the sides of the r 
Odd you " 

210 PRINT "will crash and a rating and s 
core will " 


220 PRINT "given." 

230 PRINT 
240 PEN 2 

250 PRINT "controls " 

260 PRINT "Use left and right cursor con 
trols" 


270 PRINT 
2B0 PRINT 
290 PRINT 
300 PEN 3 
310 PRINT 


"for steering." 


"press any key to start drive. 


320 IF INKEY*-"" THEN GOTO 320 
330 SYMBOL AFTER 91 

340 SYMBOL 91,90,126,90,24,24,219,255,21 
9 

350 t-15 
360 ct-22 
370 d-100 
380 wd-12 
390 m»l 
400 MODE 1 
410 INK 0,0 
420 INK 1,13 
430 INK 2,18 
440 INK 3,6 
450 GOSUB 480 

460 FOR i»l TO 25:LOCATE t,i:PRINT t*:NE 
XT i 

470 GOTO 550 

480 t*=CHR* < 206)+CHR*(206) 

490 t*»t*+CHR*(14)+"l" 

500 wd=wd-l:IF wd-3 THEN wd=4 
510 t*-t*+SPACE*(wd) 
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520 t*-tt+CHR*<14)-»-"2'' 

530 t$-tf-i-CHR«(206)-»-CHR«(206) 

540 RETURN 

550 GOSUB 480 

560 REM 

570 PEN 3 

580 PAPER 2 

590 LOCATE t,l 

600 PRINT CHR4<11)| 

610 PRINT t4 

620 PEN 0:PAPER liLOCATE ct,25iPRINT CHR 
♦ (91) 

630 t=«t+INT(3*RND(TIME)-l) 

640 IF t»0 THEN t-1 

650 IF t>22 THEN t-22 

660 d»d-ltIF d-0 THEN d-100iGOSUB 480 

670 SOUND 1,2000,6,10,2,2,2 

680 m=m+l 

690 a4alNKEY4 

700 IF a*»CHR4<242) AND ct>0 THEN ct-ct- 
1 

710 IF a*»CHR*<243) AND ct<40 THEN ct-ct 
+ 1 

720 ctx=ct*16-8scty»20 
730 IF TEST(ctx,cty)-l THEN GOTO 560 
740 LOCATE ct+1,25iPRINT " "iLOCATE ct-1 
,25:PRINT " ” 

750 FOR i-1 TO 100 

760 LOCATE ct,25:PRINT CHR*(238) 

770 SOUND l,i«10+2000,l,10,l,l,5 
780 LOCATE ct,25:PRINT CHR*(230) 

790 INK 0,RND(TIME)*24 
800 NEXT i 

810 REM «***«#*«*««#* 

820 REM * Game over * 

830 REM «-»««■»«*«««««« 

840 INK 0,0:PAPER 0 
850 INK 1,6 
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860 INK 2,6 
870 INK 3,24 
880 PEN 3 
890 CLS 

900 LOCATE 16,3iPRINT "Bafli* ov«r" 

910 PRINT 
920 PEN 1 

930 PRINT "Rating is i-"| 

940 IF m>3000 THEN PEN 3iPRINT "Drnnon dr 
ivsr"iBOTa 1020 

930 IF (n>2000 THEN PRINT "Pro"i0OTD 1020 
960 IF ffl>1000 THEN PRINT "Afflatusr"iBOTO 
1020 

970 IF ffl>S00 THEN PRINT "So 8a"tB0T0 102 
0 

980 IF ffl>2S0 THEN PRINT "Rubbish"iBOTO 1 
020 

990 IF ffl>100 THEN PRINT "Woman drivsr"iB 
□TO 1020 

1000 IF ffl>2S THEN PRINT "You nssd glassa 
s"IBOTO 1020 

1010 IF m<2S THEN PRINT "A 2 ysar old co 
uld do batter" 

1020 LOCATE 13,7iPRINT "Final Milage 
m 

1030 PEN 3 

1040 LOCATE IS,101 PRINT "Play again ?" 

1050 a«-INKEY4 

1060 IF a4-"y" THEN RUN 

1070 IF a4-"n" THEN END 

1080 BOTO 1050 



Docking 



Avoid all the asteroids and space garbage. D(x:k successfully with the 
mother ship before your fuel runs out. Cursor keys control your 

thru.sters. 

IBB REM *********** 

IIB REM * Docking * 

12B REM *»«■»#**««*« 

13B MODE 1 

14B LOCATE 17,1:PRINT "Docking" 

15B PRINT 

16B PRINT "Try to dock you shuttle craft 
with the" 

17B PRINT "Mother ship at the top of the 
screen" 

18B PRINT "The only snag is that there a 
re 3 " 

19B PRINT "Asteroid belts to avoid." 
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200 PEN 2 

210 PRINT "ths only controls for your sh 
uttle" 

220 PRINT "cra^t are the 3 cursor contro 
1 keys" 

230 PRINT "Right ,Left and Up." 

240 PRINT "if you hit an asteroid or run 
out" 

250 PRINT "fuel the game will end and a 
score given" 

260 PRINT 
270 PEN 3 

280 PRINT " Press any key to start." 
290 IF INKEYf-"" THEN 290 
300 REM **«"»«#'»*««'»*** 

310 REM « Initialize * 

320 REM ************** 

330 INK 0,01 PAPER 0tBORDER 0 

340 SYMBOL AFTER 91 

350 INK 2,6:INK 1,13:INK 3,1 

360 fum»300 

370 RAD 

380 SYMBOL 93,56,124,119,255,187,254,60, 
28 

390 SYMBOL 92,24,24,60,60,126,126,255,25 
5 

400 PEN 3 

410 SYMBOL 91,60,126,255,255,126,36,66,1 
29 

420 MODE 1 
430 x“20:y*25 
440 pt“l 

450 REM ******************* 

460 REM * Draw space ship * 

470 REM ******************* 

480 FOR i»l TO 100 

490 PLOT i,400-i,1:DRAW 640-i,400-i 
500 NEXT i 
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51(9 FOR i«10(9 TO 34 STEP -liPLOT 300,40(9 
-i,01 DRAW 340,400-iiNEXT i 
520 LOCATE 20,3iPRINT CHR*(92)jCHR4(92) 
530 ] ] 

13 3 ’' 

540 asl4»''3 3 3 3 3 3 3 

3 3 3 3 " 

550 fu>-fum 

560 REN «**«««««« 

570 REM * Start * 

580 REM ««*«***«« 

590 a«-LEFT«(as«,l) 

600 as«-RIGHT$(as«,39)-»-a« 

610 a«-LEFT4(asl«,39) 

620 asl««RIQHT«(asl«,l)-4-a« 

630 LOCATE l,13iPRINT as* 

640 LOCATE l,19iPRINT asl* 

650 LOCATE l,22tPRINT as* 

660 PAPER 2jPEN 3iLOCATE 4, li PRINT "-fusl 
Isft "jfu 
670 fu-fu-1 

680 IF fu<0 THEN 0OTO 1090 
690 PAPER 0 
700 a*>INKEY* 

710 IF a*-"" THEN 780 
720 LOCATE x,y*PRINT ” " 

730 IF a*-CHR*(242) AND xt>-5 THEN xt—1 
740 IF a*»CHR*(243) AND xt<5 THEN xt-1 
750 IF a*«CHR*(240) AND yt<5 THEN yt-1 
760 x»x+xt 

770 y»y-yt»IF yt>0 THEN yt-yt-0.25 
780 tx*x*16-8:ty=408-(y*16) 

790 tB-TEST(tx,ty) 

800 IF ts-1 OR ts-2 THEN 890 
810 ta-TEST(x*16"-8,424-y*16) 

820 IF te-3 THEN 1000 
830 xt-0:yt-0 

840 PEN 3*LOCATE x,ysPRINT CHR*(91)iPEN 
2 
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850 GOTO 590 

860 REM ««*****««**■»« 

870 REM * Explosion * 

880 REM «««««*«■»*«*«« 

890 ty-408-(y*16) 

900 tx»x#16-8 

910 FOR i-1 TO 360 STEP 2 

920 cc»i/5 

930 PLOT tx+SIN<i)*cc,ty+COS<i)*cc,RND<T 
IME)*3 

940 SOUND 1,1-1-1000,3,15,1,1,4 

950 NEXT i 

960 GOTO 1110 

970 REM ********** 

980 REM * Docked * 

990 REM ********** 

1000 MODE 1 

1010 LOCATE 15,Is PRINT "You Docked" 

1020 •fum*-fuin-30 
1030 IF •funi<30 THEN fum-30 
1040 LOCATE 3,5sPRINT "you now only have 
"j-fumj"fuel units" 

1050 FOR J-1 TO 1000sNEXT JsGOTO 420 
1060 REM ************* 

1070 REM * Game over * 

1080 REM ************* 

1090 MODE 1 
1100 PEN 1 

1110 LOCATE 16,2sPRINT "Game over" 

1120 PEN 2 

1130 LOCATE 13,6sPRINT "Final score-";sc 
1140 PEN 3 

1150 LOCATE 16,11 SPRINT "Play again" 

1160 a«-INKEY* 

1170 IF a*-"y" THEN RUN 
1180 IF a*-"n" THEN END 
1190 GOTO 1160 




Chapter 7 


TRADITIONAL GAMES 
AND SPORTS 




Horse Race 



A chance to earn scime money from your friends. Back your favourite 
depending on its form and odds. As with Hangman, you may want to 
add your own names. This is done by again altering the data statement. 


100 REM ##*#**#******# 

110 REM * Hors« raca * 

120 REM **«*«*■»«***««« 

130 SYMBOL AFTER 91 

140 SYMBOL 91,0,0,2,7,124,252,136,136 

150 SYMBOL 92,0,0,0,2,127,252,136,80 

160 MODE 0 

170 PAPER 01 INK 0,0 

180 INK 1,2 

190 INK 2,6 

200 INK 3,8 

210 INK 4,18 
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220 INK 9,20 

230 INK 6,24 

240 INK 7,26 

250 PEN BilNK 8,6 

260 INK 11,0 

270 INK 14,22 

280 LOCATE 1,1 

290 REM ***■»**«*-»«**«*«« 

300 REM * Instructions * 

310 REM «*«*««*«««*»***« 

320 PRINT ” Horss racs" 

330 PRINT " 

340 PEN 1 
350 PRINT 

360 PRINT "Bst on a horss using" 
370 PRINT "the odds provided" 

380 PRINT "Then enter amount to"| 
390 PRINT "bet." 

400 PEN 9xINK 9,21 
410 PRINT 

420 PRINT "If a horse wins" 

430 PRINT "odds go down." 

440 PRINT 

450 PRINT "If a horse looses" 

460 PRINT "odds go up." 

470 PEN 12:INK 12,2,20 
480 PRINT "Press a key to start" 
490 IF INKEY4-"" THEN GOTO 490 
500 REM 

510 REM * Initialize * 

520 REM «««»■»*««««««*« 

530 RESTORE 880 
540 CLS 

550 DIM a«<14),a(6),r<6) 

560 DIM b(14),od(14) 

570 money»200 
580 FOR i-1 TO 14 
590 READ a4<i) 




Horse Race 127 


600 od(i)-6 
610 NEXT i 

620 MODE 0:INK 0,0tPAPER 0 

630 GOSUB 1240 

640 FOR i-1 TO 6 

650 a(l)-0 

660 NEXT i 

670 PEN 3 

680 PRINT 

690 PRINT "Which hor*e to bet on" 

700 INPUT h 

710 IF h<l OR h>6 THEN h-INT(6*RND(TIME) 
+ 1 ) 

720 PRINT "you have chosen” 

730 PEN h 

740 PRINT a*(r(h)) 

750 PEN 14 

760 PRINT "You have #"|money 
770 PRINT "How much to bet" 

780 PRINT "1 to 25 pounds" 

790 INPUT bet 

800 IF bet <0 THEN bet -1 

810 IF bet >25 THEN bet-25 

820 IF money-bet<0 THEN GOTO 770 

830 INK 0,9 

840 CLS 

850 REM *«**«*«*«« 

860 REM * Horses * 

870 REM «-»««*«***» 

880 DATA Discovery 
890 DATA Tubular bells 
900 DATA Flash AHH!! 

910 DATA The N Team 

920 DATA The Greaser 

930 DATA Red Rum 

940 DATA Vector Twin Turbo 

950 DATA Ferrari 

960 DATA Equinoxe 
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970 DATA Atarian 
980 DATA Newtech 
990 DATA Bona Shakar 
1000 DATA Tha Da-fander 
1010 DATA Amstrad 
1020 REM #-»««**** 

1030 REM « Raca « 

1040 REM *«**»■»** 

1050 PEN 0 
1060 FOR i»l TO 7 

1070 PLOT 0,i*48-24,11(DRAW 640,1*48-24 
1080 NEXT i 

1090 PLOT 630,01 DRAM 630,310 

1100 LOCATE 5,It PEN St PRINT "Horsa raca" 

1110 INK 0,9 

1120 FOR i-1 TO 6 

1130 k-INT(5*RND<TIME)+3) 

1140 a(i)»a(i)-<-x 

1150 IF a(i)>600 THEN 1450 

1160 TAG iPLOT a<i),i*40,iiPRINT " "|CHR 

♦(91+3); 

1170 s-l-s 

1180 NEXT i 

1190 s-l-s 

1200 GOTO 1120 

1210 REM ****************** 

1220 REM * Display horses * 

1230 REM ****************** 

1240 FOR i=l TO 14 

1250 b(i)-0 

1260 NEXT i 

1270 FOR i-1 TO 6 

1280 x-INT<14*RND(TIME)+l) 

1290 IF b(x)»l THEN GOTO 1280 

1300 b(x)-l 

1310 r(i)-x 

1320 NEXT i 

1330 c-0 
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1340 FOR i-1 TO 6 
1350 c-c+1 
1360 PEN c 

1370 PRINT i|" ••ja4(r<i)> 

1380 PRINT ,od<r<i))I1” 

1390 PRINT 
1400 NEXT i 
1410 RETURN 

1420 REN a****************** 

1430 REN * Display who won * 

1440 REN *«**»***«*«»«*«**** 

1450 NODE 1:INK 0,14 
1460 PEN 1 

1470 LOCATE 18-LEN(a4(r(i)))/2,1iPRINT a 
♦ (r(i))|" Won" 

1480 LOCATE 18-LEN(a*(r(h))),4 
1490 PRINT "you bet on ";a»(r(h)) 

1500 IF hOi THEN SOTO 1540 
1510 LOCATE 15,6 

1520 PEN 1 1 PRINT "You Won "»Od(r(i))*bet 
1530 money«money+od(r(i>) 

1540 money**money-bet 

1550 IF money<-0 THEN LOCATE 15,8:PRINT 
"Out o-f money":END 

1560 FOR J«1 TO 6:od(r(j))-od(r<J))+l 
1570 NEXT j 

1580 od(r(i))-od(r(i))-2 

1590 IF od<r(i))<l THEN od(r(i))-l 

1600 REN aaaaaaaa****** 

1610 REN * Play again * 

1620 REN a************* 

1630 LOCATE 15,23 

1640 PEN 2:PRINT "Race again ?" 

1650 a4-INKEY« 

1660 IF a4-"y" THEN 620 
1670 IF a4-"n" THEN END 
1680 60T0 1650 



Os and Xs 



Moves are made using the cursor keys to select a box and then the 
copy key. You decide on who has the first move. If your move is 
illegal, the machine tells you. Tty to beat the machine without a draw 

(stalemate). 


100 REM *************** 

110 REM « O's and X's * 

120 REM 
130 REM 

140 MODE 0 : INK 0,26 : CLS i BORDER 26 

150 INK 1,26 : INK 2,26 t INK 3,26 

160 INK 4,26 I INK 5,26 t INK 6,26 

170 INK 7,26 : INK 8,26 i INK 9,26 

180 INK 10,0 : INK 11,26 i INK 12,6 
190 INK 13,21 : INK 14,20 i INK 15,0 
200 PEN 15sCLS 
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210 INPUT "Do you want to go -First "jg# 

220 IF g*-"" THEN SOTO 200 

230 IF g*<>"n" AND g*<>"y" THEN 200 

240 IF g$-"y" THEN mo-1 ELSE mo-0 

250 CLS 

260 REH 

270 REM ****««*'»«*«««* 

280 REM * Draw Board * 

290 REM a#*****#***#*# 

300 REM 

310 FOR i - 1 TO 2 

320 FOR j - 3 TO 7 STEP 2 

330 PLOT 150*i-^j,0,15 

340 DRAWR 0,400 

350 PLOT 0,134*i+j 

360 DRAWR 450,0 

370 NEXT j 

380 p-1 

390 NEXT i 

400 FOR i - 1 TO 3 

410 FOR j - 1 TO 3 

420 PLOT 146^^i,130*j■^j,p 

430 DRAWR -125,0 

440 DRAWR 0,-110 

450 DRAWR 125,0 

460 DRAWR 0,110 

470 p-p+1 

480 NEXT j 

490 NEXT i 

500 REM 

510 REM 

520 REM * Set Up Array For Pieces * 

530 REM 
540 REM 

550 DIM array (3,3) 

560 FOR i » 1 TO 3 
570 FOR j « 1 TO 3 
580 array(i,J) - 0 
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590 NEXT J 
600 NEXT i 
610 I 

620 FOR goes-1 TO 9 

630 IF nio»0 THEN GOTO 690 

640 mo-01BOSUB 800 

650 array(x,y)-l 

660 GOSUB 1090 

670 GOSUB 1540 

680 IF win-1 THEN PEN 15 * LOCATE 15,1 i 
PRINT "You win"SEND 
690 mo-lsGOSUB 1210 
700 GOSUB 1540 

710 IF win -1 THEN PEN 15sL0CATE 15,liPR 
INT "I win"SEND 
720 NEXT goes 

730 PEN 15sPRINT "Draw"sEND 
740 s 
750 REM 

760 REM *««**«**«**«««*«***»«*««««« 

770 REM * Determine Player's Move * 

780 REM **■»■»*««**«**«««*««««*»***«« 

790 REM 
800 x-1 s y-1 
810 FOR i » 1 TO 9 
820 INK i,26 
830 NEXT i 


840 

IF 

X»1 

AND 

y-1 

THEN 

INK 

1, 

1 

850 

IF 

x-1 

AND 

y-2 

THEN 

INK 

2, 

1 

860 

IF 

x-1 

AND 

y»3 

THEN 

INK 

3, 

1 

870 

IF 

x-2 

AND 

y-1 

THEN 

INK 

4, 

1 

880 

IF 

x-2 

AND 

y»2 

THEN 

INK 

5, 

1 

890 

IF 

x-2 

AND 

y-3 

THEN 

INK 

6, 

1 

900 

IF 

x-3 

AND 

y-1 

THEN 

INK 

7, 

1 

910 

IF 

x-3 

AND 

y-2 

THEN 

INK 

B, 

1 

920 

IF 

x-3 

AND 

y-3 

THEN 

INK 

9, 

1 

930 

a*-INKEY* B 

IF 

a*-" " 

THEN 

930 


940 IF a« <> CHR»(241) THEN GOTO 970 
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950 IF y-1 THEN GOTO 930 
960 y-y-1 1 60T0 810 

970 IF <> CHR«(240) THEN GOTO 1000 
980 IF y-3 THEN GOTO 930 

990 y-y-t-i s GOTO 810 

1000 IF <> CHR«<242) THEN GOTO 1030 
1010 IF x-1 THEN GOTO 930 
1020 x-x-1 2 GOTO 810 

1030 IF a4 <> CHR4<243) THEN GOTO 1060 
1040 IF x-3 THEN GOTO 930 

1050 x«x+l I GOTO 810 

1060 IF a« <> CHR4(224) THEN GOTO 930 
1070 IF array(x,y)<>0 THEN SOUND 1,100 
,100,15:GOTO 930 
1080 RETURN 

1090 REIi a****************** 

1100 REM * Playvr Win Scan * 

1110 REM ««a«****«*«**a««*a* 

1120 REM 

1130 win -0 

1140 FOR i - 1 TO 3 

1150 IF array<i,l)«l AND array(i,2)-1 
AND array<i,3)“l THEN win ■ 1 
1160 IF array<l,i)“l AND array(2,i)“l 
AND array<3,i)-l THEN win - 1 
1170 NEXT i 

1180 IF array<1,1)=1 AND array(2,2)-1 
AND array<3,3)-1 THEN win - 1 
1190 IF array(3,l)»l AND array(2,2)-1 
AND array<l,3)*l THEN win ■ 1 
1200 RETURN 
1210 win *0 
1220 FOR i « 1 TO 3 

1230 IF array(i,l)»2 AND array(i,2)»2 
AND array<i,3)“0 THEN array<i,3) 
-22win-l2RETURN 

1240 IF array(i,l)"2 AND array<i,3)-2 
AND array<i,2)-0 THEN array(i,2> 
a2iwin>l:RETURN 
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125B IF array(i,2)-2 AND array(i,3)-2 
AND array<i,l)-0 THEN array(i,l) 
“2:win=l:RETURN 

1260 IF array(l,i)«2 AND array(2,i)-2 
AND array(3,i)»0 THEN array(3|i) 
-2iwin-l:RETURN 

1270 IF array<l,i)-2 AND array(3,1)-2 
AND array(1,i)”0 THEN array(1,1) 
“21wln“1J RETURN 

1280 IF array(2,l)»2 AND array(3,l)-2 
AND array (1,1) <"0 THEN array (1,1) 
=2:wln-lsRETURN 

1290 NEXT 1 

1300 IF array(1,1)-2 AND array(2,2)-2 

AND array(3,3)«0 THEN array(3,3)-2 
:wln»lsRETURN 

1310 IF array(1,1)-2 AND array(2,2)-0 

AND array(3,3)-2 THEN array(2,2)-2 
Iwln»l:RETURN 

1320 IF array(1,1)>0 AND array(2,2)-2 

AND array(3,3)-2 THEN array(1,1)-2 
fwln-lI RETURN 

1330 IF array(3,1)-2 AND array(2,2)-0 

AND array(1,3)-2 THEN array(2,2)-2 
;win-lx RETURN 

1340 IF array(3,1)-2 AND array(2,2)-2 

AND array(1,3)-0 THEN array(1,3)-2 
twln-1 2 RETURN 

1350 IF array(3,l)»0 AND array(2,2)-2 

AND array(1,3)-2 THEN array(3,1)-2 
:wln«l:RETURN 

1360 FOR 1 « 1 TO 3 

1370 IF array(1,1)»1 AND array(1,2)-1 
AND array(i,3)=0 THEN array(1,3) 
-22 RETURN 

1380 IF array(1,1)-1 AND array(1,3)-1 
AND array(l,2)-0 THEN array(1,2) 
=22 RETURN 
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1390 IF array (i ,2)">1 AND array (i,3)"l 
AND array<i,l)"0 THEN array(1,1) 
-21 RETURN 

1400 IF array(l,i)-l AND array(2,i)-l 
AND array(3,i)"0 THEN array(3,1) 
-2JRETURN 

1410 IF array(1,1 )*■! AND array(3,l)“l 
AND array(l,l)-0 THEN array(1,1) 
-21 RETURN 

1420 IF array(2,l)-l AND array(3,l)-l 
AND array(1,1)«0 THEN array(1,1) 
-21 RETURN 
1430 NEXT i 

1440 IF array(1,1)-1 AND array(2,2)-1 

AND array(3,3)-0 THEN array(3,3)-2 
j RETURN 

1450 IF array(1,1)-1 AND array(2,2)-0 

AND array(3,3)-l THEN array(2,2)»2 
!RETURN 

1460 IF array(1,1)•■0 AND array(2,2)"1 

AND array(3,3)-1 THEN array(1,1)-2 
;RETURN 

1470 IF array(3,l)*l AND array(2,2)“0 

AND array(1,3)"I THEN array(2,2)“2 
:RETURN 

1480 IF array(3,l)-l AND array(2,2)-1 

AND array(l,3)-0 THEN array(1,3)-2 
:RETURN 

1490 IF array(3,l)»0 AND array(2,2)*1 

AND array(l,3)-l THEN array(3,1)-2 
:RETURN 

1500 al-INT(3*RND(l))+l 

1510 bl»INT(3*RND(l))+l 

1520 IF array(al,bl)<>0 THEN GOTO 1500 

1530 array(al,bl)»2 i RETURN 

1540 REM draw bits 

1550 FOR i » 1 TO 3 

1560 FOR j » 1 TO 3 
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1570 IF array<i,j)-0 THEN GOTO 1620 

1580 FOR k - 1 TO 115 STEP 2 

1590 PLOT 146*i,130*j+J-k, 11 + 

array(i,j) 

1600 DRAWR -125,0 

1610 NEXT k 

1620 NEXT J 
1630 NEXT 1 
1640 RETURN 



Anagram 



Rearrange each given jumble of letters into a word in 25 seconds. 


100 REM *********** 

110 REM * Anagram * 

120 REM *********** 

130 REM 

140 MODE 1 

ISO BORDER 11 

160 INK 0,11 

170 INK 1,0 

180 INK 2,6,24 

190 INK 3,24 

200 SPEED INK 10,10 

210 REM **************** 

220 REM * Instructions * 

230 REM **************** 
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240 PEN 1 
250 LOCATE 16,1 
260 PEN 1 

270 PRINT "_" 

280 LOCATE 16,1 
290 PEN 3 

300 PRINT CHR«(22)|"l"|"Anagram" 

310 PRINT CHR$<22);“0” 

320 PEN 1 
330 PRINT 

340 PRINT "In this gams you hsvs to guos 
s ths word" 

350 PRINT "i hsvs Jumblsd up." 

360 PRINT 

370 PRINT "A time limit will bs ticking 
away at" 

380 PRINT "ths bottom which lasts for 25 
seconds." 

390 PRINT 

400 PRINT "The word will be displayed at 

M 

410 PRINT "the top o-f the screen 
and the" 

420 PRINT "letters you have guesse 
d below." 

430 PRINT "If you finish the word be 
fore the" 

440 PRINT "the time runs out you will be 
given a" 

450 PRINT "percentage score." 

460 PEN 2 
470 PRINT 
480 PRINT 

490 PRINT " Press any key to start" 

500 IF INKEY*-"" THEN 500 
510 REM *****«««***«**« 

520 REM * Choose word * 

530 REM a************** 
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540 RESTORE 
550 CLEAR 

560 FOR i-1 TO INT(17*RND(0)+1> 

570 READ a*:NEXT i 
580 word>>a* 

590 FOR i-1 TO LEN<word*)ipart*-part#+"- 

II 

600 NEXT i 
610 ip$-part* 

620 FOR i-1 TO LEN(word«> 

630 a-INT(LEN(word*)*RND(TIME> +1) 

640 IF MID*<ip*,a, DO"-” THEN 630 
650 ana*-ana*-4-LOWER*(MID*(word*,a,l)) 

660 ip*-LEFT*(ip*,a-l)+"*"+RIQHT*(ip*,(L 
EN(ip*)-a)) 

670 NEXT i 

680 REM *««*«•»*«****'»«*«*«**** 

690 REM * Btit up gam* scr**n * 

700 REM ««****«**««**«**««**«« 

710 MODE 1 

720 SPEED INK 5,5 

730 p-1 

740 PEN 1 

750 INK 0,0 

760 INK 1,24 

770 INK 2,17 

780 INK 3,18 

790 LOCATE 15,1 

800 PRINT "Tha word i«" 

810 LOCATE 20-LEN<ana*)/2,5 
820 PRINT ana* 

830 FOR i-2 TO 636 STEP 2 
840 PLOT i,30,3 
850 DRAW i,70 
860 NEXT 1 

870 PLOT 0,28,2iDRAW 0,72iDRAW 639,72iDR 

AW 639,28:DRAW 0,28 

880 LOCATE 5,9iPRINT "guaas 
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890 t-LEN(Mord«)-»-l 
900 d-49 
910 c-32 
920 PEN 2 

930 FOR i-636 TO 2 STEP -0.3 

940 IF i<lS0 THEN INK 3,6,0 

930 IF i>130 AND i<300 THEN INK 3,13 

960 PLOT 1,30,01 DRAW 1,70 

970 c-c-liIF c-0 THEN c-dtd-d-1iSOUND 1, 

100,2,13 

980 a4-INKEY4 

990 IF THEN 1030 

1000 608UB 1270 

1010 LOCATE 14,9 

1020 PRINT lp4 

1030 NEXT 1 

1040 REM «*««*»**«*«** 

1030 REM » Oam* ovar * 

1060 REM ************* 

1070 SPEED INK 10,10 
1080 LOCATE 14,9 
1090 PRINT lp» 

1100 LOCATE 16,11 

1110 PRINT "mcora INT((100/640)*i) 

1120 LOCATE 13,1 

1130 PRINT "Tha word was" 

1140 LOCATE 20-LEN(ana4)/2,3 
1150 PRINT word* 

1160 LOCATE 15,14iPEN 3 
1170 INK 3,20 
1180 FOR i-1 TO 100 
1190 SOUND 1,1,1,15 
1200 SOUND 2,1,2,15 
1210 NEXT 1 

1220 PRINT "Play again ?" 

1230 a«-INKEY4 

1240 IF a4-"y" THEN 540 

1250 IF a4<>"n" THEN SOTO 1230 
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1260 END 

1270 ip#-LEFT* <ip»,p-1)+a*+R16HT* <ip*,LE 
N(ip«)-p) 

1280 p"p+l 

1290 IF p-t AND ip^OLOWERXword*) THEN 
i-liGOTO 1080 

1300 IF p-t THEN BOTO 1080 
1310 RETURN 

1320 REM «***«*«*«**«******«*»«■»«**»**«* 
«««« 

1330 REM * Word data this can bs chang 
ed * 

1340 REM 
«««« 

1350 DATA AmatradyRotavator 
1360 DATA Establlshmsnt 
1370 DATA Arnold,Colour 
1380 DATA Quantum,Ommadawn 
1390 DATA Platinum,Fsrrari 
1400 DATA Intmrnal,TommoroM 
1410 DATA So-ftwarB,Computmr 
1420 DATA Addison,WmBlBy 
1430 DATA Sink,Tulip 



Hangman 



Tlie program asks you whether >’ou are playing ag-ainst it or another 
player. Either you can input a word for your opponent, or the machine 
will supply you with one. You then have to gue.ss the letters that make 
up the word. If you want to change the words prcxiuced by the 
program, alter the data .statements, but don't forget to change the lines 
that ch(X).se the words. If the.se are not changed and you add more 
word.s, they may not be looked for by the program. 

100 REM *********** 

110 REM * Hangman * 

120 REM ««****«**«« 

130 REM 

140 ENT 1,2,3,4,1,2,1 

150 ENT 2,5,1,1,10,-1,1,10,1,1,5,-1,1 

160 SYMBOL AFTER 91 

170 SYMBOL 91,254,254,234,254,234,254,25 
4,254 
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1B0 SYMBOL 92,127,127,127,127,127,127,12 
7,127 

18S SYMBOL 93,136,17,34,68,136,17,34,68 
190 MODE 0 

200 PAPER 01 BORDER 0 

210 INK 0,0 

220 INK 1,21 

230 INK 2,23 

240 INK 3,3 

250 PEN 1 

260 REM «*«***«**««***«* 

270 REM * instructions * 

280 REM **«■**»**»**««»*« 

290 LOCATE 7,1 
300 PRINT "Hangman" 

310 PRINT 

320 PEN 3iINK 3,17 

330 PRINT "This is ths gams o-f" 

340 PRINT "Hangman, whsn asked" 

330 PRINT "type in your guess" 

360 PRINT "i-f you have choosen" 

370 PRINT "a letter you have" 

380 PRINT "already used you " 

390 PRINT "will be told" 

400 PRINT 

410 PEN 2iINK 2,2 

420 PRINT "Do you want to input"; 

430 PRINT "your own word 
440 INPUT a4 

430 IF a4-"n" THEN 80T0 490 

460 PEN 2 1 PRINT "Input your word " 

470 INPUT word* 

480 GOTO 520 
490 RESTORE 

500 a-INT{14*RND<TIME)+l) 

510 FOR i-l TO a:READ wordtiNEXT i 
520 MODE 1 
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530 PEN 1 

540 FDR i»l TO LEN<word<) 

550 p*-"-''xIF MID$(word*,i ,1)-'' •' THEN p 

fa" " 

560 find«>-Find#-»-p« 

570 NEXT i 

580 LOCATE 2,4iPRINT "Lattsrs Usad" 

581 PEN 2 

590 LOCATE 2,5iPRINT 

600 LOCATE 2,6sPRINT "3 ]'• 

610 LOCATE 2,7sPRINT "3333333333:3” 

615 PEN 1 

620 LOCATE 2,2sPRINT find* 

630 LOCATE 2,10sPRINT SPACE*(16) 

640 f-0 

650 REM «***«««*««**«#«*«« 

660 REM * Input a 1attar * 

670 REM «-»««******«**«**** 

680 LOCATE 2,10s INPUT "lattar ?'‘il* 

690 IF LEN(1*)-1 THEN GOTO 740 
700 LOCATE 2,10sPRINT SPACE*(28)sOOTO 68 
0 

710 REM *■»********«****«««* 

720 REM * Chack for a dud * 

730 REM «««««*■»««***«*«**«* 

740 IF l*<''a" OR l*>"z” THEN GOTO 620 
750 FOR i-1 TO LEN (used*) 

760 IF l*>MID*(u3ed*,i,1) THEN GOSUB 194 
0 s GOTO 620 
770 NEXT i 

780 FOR i-1 TO LEN (find*) 

790 IF l*«MID*(find*,i,1) THEN GOSUB 19 
40 s GOTO 620 
800 NEXT i 

810 FOR i»l TO LEN (word*) 

820 IF LOWER*(MID*(word*,i,l))<> 1* THEN 
850 

830 find*-LEFT*(find*,i-l)+l*+RIGHT*(fin 
d*,LEN(word*)-i) 
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840 f-1 
850 NEXT 1 

860 IF •find«-LOWER»(ward«) THEN 2040 
870 IF f-1 THEN GOTO 620 
880 us«d4«ussdf+l* 

890 p“p+l 

900 REIi »*«*■»««»««**««««"»*«« 

910 REM * Draw part of man * 

920 REM a******************* 

930 ON p GOSUB 1010,1060,1170,1240,1320, 

1370,1420,1620,1710,1780 

940 PEN 1 

950 IF LEN (used«)-10 THEN 2210 
960 LOCATE 3,6xPRINT uaad* 

970 GOTO 620 
980 REM aaaaaaaaaaaaa 
990 REM a Draw baas a 
1000 REM aaaaaaaaaaaaa 

1010 PEN 3iF0R i-1 TO lit LOCATE 20-»-l ,23i 
PRINT CHR»<143)NEXT i 
1020 RETURN 

1030 REM aaaaaaaaaaaaaaaaaaaaaa 

1040 REM a Draw baas aupporta a 

1050 REM aaaaaaaaaaaaaaaaaaaaaa 

1060 PEN 3xF0R i-1 TO 4:L0CATE 21+i,23-i 

I PRINT CHR*(214)iNEXT i 

1070 FOR i-1 TO 3tL0CATE 22+i,23-iiPRINT 
CHRf(212)X NEXT i 

1080 LOCATE 26,19iPRINT CHR*<143) 

1090 FOR i-1 TO 4 

1100 LOCATE 26+i,18+iiPRINT CHR#<215)xNE 
XT i 

1110 FOR i-1 TO 3 

1120 LOCATE 26+i,19+iI PRINT CHR*<213)iNE 
XT i 

1130 RETURN 

1140 REM aaaaaaaaaaaaaaaa 
1150 REM a Draw upright a 
1160 REM aaaaaaaaaaaaaaaa 
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1170 PEN 3«FQR i-22 TO 7 STEP -1 
1180 LOCATE 26,it PRINT CHR«(143) 

1190 NEXT i 
1200 RETURN 

1210 REM ««*****«««**«««««**** 

1220 REM « Draw baam support * 

1230 REM *■»■»««»»****«*«««**«** 

1240 PEN 38FOR i»l TO 3 

1250 LOCATE 26+1,10-isPRINT CHR4<212)iNE 
XT i 

1260 FOR i-1 TO 2 

1270 LOCATE 26+i,9-iiPRINT CHR4<214)iNEX 
T i 

1280 RETURN 

1290 REM -»«*««*«***«** 

1300 REM * Draw beam * 

1310 REM «««««««««**«« 

1320 PEN 3iF0R i-26 TO 338LOCATE i,6iPRI 
NT CHR*<143)jiNEXT i 
1330 RETURN 

1340 REM **■»«««*«*«*«« 

1350 REM * Draw raps * 

1360 REM *«'»*-»«««**««« 

1370 PEN 2iLOCATE 35,7:PRINT CHR4(149)iL 
OCATE 35,8:PRINT CHR*(149) 

1380 RETURN 

1390 REM a************ 

1400 REM * Draw hsad « 

1410 REM **«**#««««*«* 

1420 FOR i-1 TO 3iLOCATE 33+1,9 
1430 PRINT CHR4(210)j 

1440 LOCATE 33+1,10iPRINT CHR4(208)iNEXT 
1 

1450 LOCATE 33,101 PRINT CHR4(204) 

1460 LOCATE 37,108PRINT CHR*(205) 

1470 LOCATE 33,llsPRINT CHR4{211) 

1480 LOCATE 33,12:PRINT CHR#(211) 

1490 LOCATE 37,ll8PRINT CHR4<209) 
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1500 LOCATE 37,12:PRINT CHR«(209> 

1510 LOCATE 33,13lPRINT CHR«(205)tLOCATE 
37,13:PRINT CHR#(204) 

1520 FOR i»l TO 3iL0CATE 33+1,13iPRINT C 
HR«(210):NEXT i 

1530 LOCATE 34,lliPRINT CHR4(230)iLOCATE 
36,11:PRINT CHR4(230) 

1540 LOCATE 35,12:PRINT CHR4(178) 

1550 PRINT CHR4(22)I"1" 

1560 LOCATE 34,14:PRINT CHR4(211):LOCATE 
36,14 

1570 PRINT CHR4(209) :PRINT CHR4 (22) | "0'' 
1580 RETURN 

1590 REM w************ 

1600 REM * Draw body a 
1610 REM aaaaaaaaaa*** 

1620 PEN l:FOR i-0 TO 4:LOCATE 33+i,14:P 
RINT CHR4(143)IiNEXT i 

1630 FOR i-0 TO 6:L0CATE 32+1,15:PRINT C 
HR4(143)I:NEXT 1 

1640 FOR i-0 TO 6:L0CATE 32+1,16:PRINT C 
HR4(143)j:NEXT 1 

1650 FOR i-0 TO 6:L0CATE 32+1,17:PRINT C 
HR*(143)I:NEXT 1 

1660 LOCATE 32,14:PRINT CHR*(214):LOCATE 
38,14:PRINT CHR*(215) 

1670 RETURN 

1680 REM aaaaaaaaaaaaa 
1690 REM * Draw arms * 

1700 REM aaaaaaaaaaaaa 

1710 PEN 2:FOR 1-15 TO 17:LOCATE 32,1:PR 
INT CHR*(91) 

1720 LOCATE 38,1:PRINT CHR*(92) 

1730 NEXT 1 
1740 RETURN 

1750 REM aaaaaaaaaaaa* 

1760 REM a Draw Isgs a 
1770 REM aaaaaaaaa#*** 
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1780 PEN liFOR J-18 TO 22 

1790 FOR i-1 TO 3 

1800 IF J>19 AND i-3 THEN 1820 

1810 LOCATE 32-^1 ,JiPRINT CHRX206) 

1820 NEXT iI NEXT J 
1830 RETURN 

1840 REM «««*««*««****«*««««*«"»#**«*««** 
««« 

1850 REM * Word data Words can bs changa 
d * 

1860 REM aaaaaaaaaaaaaaaaaaaaaaaaa****** 
««« 

1870 DATA AfflstradfDiscovery 

1880 DATA Newtech,Addison Wesley 

1890 DATA Sierra,Escort 

1900 DATA Monitor,Printer 

1910 DATA Television,Telephone 

1920 DATA Mark,Vector Twin Turbo 

1930 DATA Submerge,Daffodil 

1940 PEN 2*PAPER 3 

1950 SOUND 1,200,50,12,2,2 

1960 LOCATE 2,10iPRINT "Letter already u 

sed" 

1970 FOR i-1 TO 10001 NEXT 1 

1980 PEN 1:PAPER 0 

1990 LOCATE 2,10iPRINT SPACE*(19) 

2000 RETURN 

2010 REM a************************* 

2020 REM * Saved phewwwww! a 

2030 REM aaaaaaaaaaaaaaaaaaaaaaaaaa 
2040 CLS 

2030 FOR i-1 TO 23 

2060 c-c+l:IF c-4 THEN c-1 

2070 PEN c 

2080 INK c,RND(TIME)a29 
2090 LOCATE 15,iiPRINT "You saved me" 
2100 SOUND I,ial0-(ia3.4),7,10,1,1 
2105 NEXT i 
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2110 FOR i-2S TO 2 STEP -1 
2120 c-c+liIF c-4 THEN c-1 
2130 INK c,RND(TinE)*29 
2140 LOCATE 15,iiPRINT SPACE#(12) 

2150 SOUND l,i*10-(i«3.3),7,10,1,1 
2160 NEXT i 
2170 GOTO 2560 

2180 REM *********************** 

2190 REM * Difid aaahhh « 

2200 REM *********************** 

2210 LOCATE 35,12iPRINT CHR#(230> 

2220 LOCATE 34,lliPRINT CHR#(231) 

2230 LOCATE 36,lliPRINT CHR#(231} 

2240 FOR i-0 TO 200 STEP 2.3 
2250 SOUND 1,1,3,10,1,1 
2260 NEXT i 
2270 REM ************ 

2280 REM « R.I.P. « 

2290 REM ************ 

2300 CLS 

2310 PEN 2tINK 2,21 

2320 LOCATE l,14iPRINT STRING#(40,143) 
2330 PEN 3tINK 3,13 
2340 FOR i-13 TO 4 STEP -1 
2350 LOCATE 14,1iPRINT STRING#<10,143) 
2360 LOCATE 14,IiPRINT CHR#(91)iNEXT 1 
2370 LOCATE 15,3iPRINT STRING#(8,143) 
2380 LOCATE 16,2iPRINT STRING#(6,143) 
2390 PAPER 3*PEN liLOCATE 17,6iPRINT "R" 
2400 LOCATE 19,6iPRINT "I" 

2410 LOCATE 21,6iPRINT "P" 

2420 PEN 01 PAPER 3 

2430 LOCATE 15,3iPRINT CHR#(204) 

2440 LOCATE 16,2iPRINT CHR#(204) 

2450 PAPER 0 
2460 PEN 3 

2470 LOCATE 14,3rPRINT CHR#(214) 

2480 LOCATE 15,2tPRINT CHR#(214) 
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2490 LOCATE 23,3iPRINT CHR*<215> 

2500 LOCATE 22,2iPRINT CHR«(215) 

2510 FOR i-0 TO 640 STEP 4iPL0T 1,190,2 
2520 DRAW i+INT<20*RND(TIME)-10),200+15+ 
RND(TIME)*15 
2530 NEXT i 

2540 LOCATE 14,16sPRINT "Th« word was" 
2550 LOCATE 20-<LEN(word*)/2),10:PRINT w 
ord* 

2560 PEN liINK 1,6 
2570 REM «»«**«»«««*«« 

2580 REM * Gama ovar * 

2590 REM aaaaaaaaaaaaa 

2600 LOCATE 15,20:PRINT "Play again?" 

2610 a*»INKEY*:IF a*«"" THEN GOTO 2610 

2620 IF a*-"y" THEN RUN 

2630 IF a*<>"n" THEN GOTO 2610 

2640 END 



Chapter 8 


TWO-USER GAMES 




Moon Base 



A two player game to test your reactions (and the Amstrad’s keyboard). 
Player 1 must try to destroy the advancing alien spacecraft (Player 2) 
before they overrun the moon base. 


1(90 REM **««*«****«* 

110 REM * Moonbasu * 

120 REM **-»«**««-»**■» 

130 ENT 1,10,-1,1 
140 ENV 2,9,3,1 
150 ENT 2,100,3,1 
160 bl«-CHR«(143) 

170 pl»9ip2-0 
180 cl«-5PACE«(40) 

190 MODE 1:PAPER OiINK 0,0 
200 INK 1,12 

210 LOCATE 16,liPRINT“MoonbaBB" 








154 An Amstrad CPC464 Compendium 


220 PRINTI PEN 2 
230 PRINT "Player 1“ 

240 PEN 1 

250 PRINT "You have been on a mieelon to 


Saturn" 
260 PRINT 
esearch." 
270 PRINT 
ission" 
280 PRINT 
landing" 
290 PRINT 
300 PRINT 
fuel" 


"to collect soil samples for r 

"While you were away on your m 

"civil war broke out and your 

"pad has been captured." 

"you have a limited amount of 


310 PRINT "with which to land." 

320 PRINT 

330 PRINT "Your controls are as follows" 
340 PRINT 

350 PRINT CHR*<154)jCHR*(246);" Right" 
360 PRINT 

370 PRINT "I down" 

380 PRINT CHR*(245) 

390 PEN 31 PRINT 

400 PRINT "Press a key for player 2's in 
structions" 


410 IF INKEY$-"" THEN BOTD 410 
420 PEN 1 

430 PRINT " Hoonbase" 

440 PRINT:PEN 2 
450 PRINT "Player 2" 

460 PEN 1 

470 PRINT "as one of the gunners invadin 

g” 

480 PRINT "the Moonbase your objective i 


490 PRINT "to shoot down the lander" 

500 PRINT 

510 PRINT "Your controls are as follows" 
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520 PRINT 

530 PRINT "A '•|CHR*<247> |CHR#<154> I 
540 PRINT CHRf(154) |CHR»(246) I'• D" 

550 PRINT "F fir** thm cannon” 

560 PRINTI PEN 3 

570 PRINT "prass any ksy to start gams" 

580 FOR i-1 TO 12:PRINTiNEXT i 

590 IF INKEY4-”" THEN BOTO 590 

600 NODE liINK 0,0:BORDER 0 

610 PAPER 0 

620 INK 1,2 

630 INK 2,24 

640 GOSUB 1140 

650 dx-10 

660 f<-0 

670 GOSUB 1480 

680 PAPER 3:LOCATE 1,1:PRINT cl* 

690 PAPER 0 
700 x“3:y«4 

710 REN a****************** 

720 REN * Start main loop * 

730 REN **«**«*«««««******* 

740 a*-INKEY* 

750 IF a*-”" THEN BOTO 810 

760 IF a*-CHR*<243) THEN x-x+1 

770 IF a*-CHR*<241) THEN y-y+1 

780 IF a*-"a" AND dx>2 THEN dx-dx-1 

790 IF a*-"d" AND dx<29 THEN dx-dx+1 

800 IF a*»"-f" AND ^=0 THEN -f»1:-fx»dx-»*2: f 

y-23 

810 IF f-0 THEN GOTO 900 
820 LOCATE -f x ,-fy: PRINT " " 

830 ■fx-fx + l:fy-fy-l: IF fy-3 THEN ■f»0:BOT 
0 900 

840 f f-TEST < <-f x*16) , (400-f y*16) +12) 

850 SOUND l,fy*2,10,10,l,l 
860 IF f-f-2 THEN •f-0:GOTO 900 
870 IF ff-1 THEN GOTO 1420 
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880 PEN 3 

890 LOCATE -f x ,-fy: PRINT CHR*(194) 

900 IF THEN 740 

910 IF x-33 AND y-21 THEN 1370 

914 REM 

915 REM * Hit anything * 

916 REM ««*«*««««*«**««« 

920 IF TEST((x*16+8),<400-y*16)-32)»2 TH 
EN GOTO 1320 

930 IF TEST(X*16+20,400-y*16-32)-2 THEN 
GOTO 1320 

940 IF a4»CHR4<243) AND TEST((x*16+25),( 

400-y*16)-24)«2 THEN GOTO 1320 

950 GOSUB 990 

960 GOSUB 1070 

970 GOTO 740 

980 REM ««««■»■»««««*«■»«««««* 

990 REM * Draw space ship * 

1000 REM «***«#****»««««««*« 

1010 PEN 1 

1020 LOCATE x-1.yiPRINT” 

1030 LOCATE x-l,y+liPRINT " "|CHR4(222); 
CHR*(207)j CHR4(223) 

1040 LOCATE x-l,y+2xPRINT " ";CHR$<155); 
“ '’jCHRf<155) 

1050 RETURN 

1060 REM ««*«**'»«***««*'» 

1070 REM « Draw gunner * 

1080 REM ««**««'»*««««««« 

1090 PEN 3 

1100 LOCATE dx,23iPRINT " ";CHR*C132);CH 
R4<204);" " 

1110 LOCATE dx,24:PRINT " "jCHR*(143);CH 
R*(215);" '• 

1120 RETURN 

1130 REM ****«*«*****»«*«« 

1140 REM * Draw moonbase * 

1150 REM **««*««««««****«* 
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1160 PEN 2 

1170 LOCATE 34,21:PRINT " ••;CHR*<135) 

;CHR4:(13S) 

1180 LOCATE 34,22:PRINT " •';CHRt(135) 

iCHR«(13S) 

1190 LOCATE 34,23:PRINT " •'jCHR#(135) 

;CHR*(135) 

1200 LOCATE 33,24:PRINT bl«|bl#;bl«|bl«| 
bl$}bl«;bl« 

1210 LOCATE 33,24:PRINT CHR»(222) 

1220 LOCATE 34,23:PRINT CHR*(222) 

1230 FOR i-2 TO 25 

1240 LOCATE 40,i:PRINT CHR*(143)j 

1250 LOCATE l,i:PRINT CHR*(143): 

1260 NEXT i 

1270 FOR i“l TO 40:LOCATE i,25:PRINT bl* 
i :NEXT i 
1280 RETURN 
1290 REM 

1300 REM * Midgame messages * 

1310 REM «««***«*««****«**«** 

1320 PAPER 3:PEN 1:LOCATE 1,1:PRINT cl* 
1330 LOCATE 11,1:PRINT "player 1 crashed 

II 

1340 p2-p2+l 

1350 IF p2=10 THEN GOTO 1680 
1360 GOTO 1550 

1370 PAPER 3:PEN 1:LOCATE 1,1:PRINT cl* 
1380 LOCATE 11,1:PRINT "player 1 landed" 
1390 pl=pl+l 

1400 IF plBl0 THEN GOTO 1680 
1410 GOTO 1550 

1420 PAPER 3:PEN 1:LOCATE 1,1:PRINT cl* 
1430 LOCATE 11,1:PRINT "player 2 hit pia 
yer 1" 

1440 p2=p2+l 

1450 IF p2al0 THEN GOTO 1680 
1460 SOUND 1,1,100,10,2,2,9 
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1470 GOTO 1550 
1480 PAPER 2 
1490 PEN 3 
1500 LOCATE 1,2 
1510 PRINT cl* 

1520 LOCATE 2,2tPRINT“player 1 i-”)pl 

1530 LOCATE 20,2iPRINT “player 2 i~“{p2 

1540 RETURN 

1550 GOSUB 1400 

1560 FOR i«l TO 10001 NEXT i 

1570 PAPER 3 

1580 LOCATE l,liPRINT cl* 

1590 PAPER 0 
1600 ^-0 

1610 LOCATE 1,11 FOR i-1 TO 26iPRINT CHR* 

(IDiiNEXT i 

1620 GOSUB 1140 

1630 GOSUB 1480 

1640 GOTO 690 

1650 REM »**«**««*««*« 

1660 REM * Game over * 

1670 REM ««***««««*«*« 

1680 MODE liPAPER 0iINK 0,0 
1690 INK 1,14 

1700 LOCATE 15,10:PRINT "Game over" 

1710 IF pl»10 THEN LOCATE 14,12:PRINT "P 
1 ayer 1 won ” 

1720 IF p2»10 THEN LOCATE 14,12iPRINT "P 
layer 2 Won" 

1730 LOCATE 13,16:PRINT "Play again ?" 
1740 a*=INKEY* 

1750 IF a*»"y" THEN RUN 

1760 IF a*<>"n" THEN GOTO 1740 
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Hntrap your opponent in your plasma beams before he gets you. 


100 REM **■»******■»♦*♦** 

110 REM * Light bikes * 

120 REM ««*««*««*«««««« 

130 MODE 1:INK 1,6:PEN 1 

13S BORDER 0 

140 PAPER 0:INK 0,2 

150 INK 2,24 

160 INK 3,0 

180 SYMBOL AFTER 91 

190 SYMBOL 91,7,24,32,192,128,135,72,48 
200 SYMBOL 92,224,24,4,3,1,225,18,12 
210 SYMBOL 93,0,7,31,63,255,252,48,0 
220 SYMBOL 94,0,240,248,252,255,63,12,0 
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230 REM *«**#«»*«■»*««**« 

240 REM * Instructions * 

250 REM *«««««««#««*«»«« 

260 m**»''Light cycles"ip»15sq«l:G0SUB 121 
0 

270 ni$<*"You are about to be placed into 
the" 

280 p»l:q»3:G0SUB 1210 

290 "LIGHT CYCLE game grid.." 

300 p»l:q«4:G0SUB 1210 

310 m<“"Try to surround the other player 

II 

320 p»l;q»5:G0SUB 1210 

330 m<«»"with the trail left by your ligh 
t" 

340 p»l:q-6:G0SUB 1210 
350 m$“"cycle." 

360 p«ltqa7:G0SUB 1210 

370 m:>«"Player 1 uses keys <2> <4> <6> < 
B>" 

380 p-l:q-93GOSUB 1210 

390 mf»"Respectivly on the numeric key p 
ad" 

400 p>ltq=>10:GOSUB 1210 

410 m<:=""Player 2 uses a Joystick plugged 
into" 

420 p»l:q»12:G0SUB 1210 
430 m*»"port 1" 

440 p»l:q»13:G0SUB 1210 

450 m*»"Press any key to enter GAME GRID 

II 

460 p»liq»17:G08UB 1210 
470 IF INKEY*»"" THEN 470 
480 REM 

490 REM * Draw game grid « 

500 REM «««*«**««***'»««*«« 

510 MODE 0 

520 X1“0« y1-180Iydl»0ixdl"4s k» 0* yB200iyd 
=0:xd*4 
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53(9 c-8 

540 FOR i-8 TO 14:INK i,13;NEXT i 
550 INK 15,6 

560 INK 7,6:REM * grid lines 
570 INK 1,2 
580 INK 2,24 

590 FOR i=0 TO 400 STEP 2 
600 PLOT 0,i,c:DRAW 640,i 
610 c=c+l;IF c=16 THEN c=8 
620 NEXT i 

630 FOR i=0 TO 640 STEP 20:PLOT i,0:DRAW 
i ,400,7 
640 NEXT i 
650 a=8:b-9 
660 GOTO 800 

670 a=a+l:IF a»16 THEN a*8 
680 b=b+l;IF b*16 THEN b»8 
690 INK a,13:INK b,6 
700 RETURN 

710 REM a************ 

720 REM * Main loop * 

730 REM a************ 

740 a*»INKEY* 

750 GOSUB 670 

760 IF a*=''8" THEN yd»2:xd-0 
770 IF a*-"2" THEN yd—2:xd-0 
780 IF a*»"6'’ THEN xd=4:yd«0 
790 IF a*=''4” THEN xd—4;yd»0 
800 y=y+yd 
810 x=x+xd 

820 IF TEST<x,y)<7 THEN 930 
830 js=JOY(0) 

840 IF js=l THEN ydl-2:xdl»0 
850 IF js=2 THEN ydl—2:xdl-0 
860 IF js-4 THEN ydl»0:xdl—4 
870 IF Js«8 THEN ydl»0:xdl>4 
880 Xl*«x 1+xdl:yl=yl+ydl 
890 IF TEST(xl,yl)<7 THEN 1070 
900 PLOT xl,yl,2 
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910 PLOT x,y,l 
920 GOTO 740 

930 FOR i=25 TO 0 STEP -0.5 
940 FOR j=l TO 10;NEXT j 
950 INK l,i:SOUND l,i«2.5,l,15 
960 NEXT i 
970 REIi 

980 REM * Light cycle 1 derezzed * 

990 REM ************************** 

1000 MODE 1 

1010 PEN 1:INK 1,2 

1020 m^=®"Light cycle 1 derezzed": p=10t 
10 

1030 INK 1,6;INK 2,24;INK 3,0 
1040 GOSUB 1210 

1050 p2=p2+l;IF p2»10 THEN 1390 
1060 GOTO 1530 

1070 FOR i-25 TO 0 STEP -0.5 
1080 FOR j=l TO 10;NEXT j 
1090 INK 2,i;S0UND l,i*2.5,l,15 
1100 NEXT i 

1110 REM ************************** 

1120 REM * Light cycle 2 derezzed * 

1130 REM ************************** 

1140 MODE 1 
1150 INK 0,2 

1160 m^="Light cycle 2 derezzed": pB:10; q- 
10 

1170 INK 1,6;INK 2,24;INK 3,0 
1180 GOSUB 1210 

1190 pl=pl+l;IF pl-10 THEN 1390 

1200 GOTO 1530 

1210 FOR i=l TO LEN(m4) 

1220 LOCATE p,q 
1230 p»p+l 
1240 PEN 1 

1250 PRINT MID4(m*,i,1); 

1260 SOUND l,400-i-p+q,7,15,10,10,l 
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1270 PEN 2 

1280 PRINT CHRt<93)jCHR*<94);CHR»(8);CHR 
♦<8);CHRf(22);"I"; 

1290 PEN 3 

1300 PRINT CHR*<91)sCHR*(92);CHR*(22);"0 

II 

1310 FOR j=l TO 10:NEXT j 
1320 NEXT i 

1330 FOR j«l TO 400:NEXT j 
1340 LOCATE p,q:PRINT " " 

1350 RETURN 

1360 REM *««««#*«««««» 

1370 REM * Game over * 

1380 REM 

1390 MODE 1 

1400 m*«"Bame Over" 

1410 p=15:q=3 
1420 GOSUB 1210 

1430 IF pl-10 THEN ffl*«"Player 1 Won" 

1440 IF p2»10 THEN m*»"Player 2 Won" 

1450 p«14:q-10 
1460 GOSUB 1210 
1470 m**"Play again" 

1480 p»15:q»14:G0SUB 1210 

1490 a4=INKEY4 

1500 IF a»="y" THEN RUN 

1510 IF a*="n" THEN p*5:q=3:m*«="Light Cy 
cles escaping game grid":GOSUB 1210:END 
1520 GOTO 1490 
1530 MODE 1 

1540 m#=" Player one Score "+STR*(pl) 

1550 p=3:q=5:GOSUB 1210 

1560 m*=" Player two Score "+STR*(p2) 

1570 p=3:q«10:GOSUB 1210 

1580 FOR i«=l TO 3000: NEXT i:GOTO 510 



Shoot-out 



At high noon you and your partner are going to have a shoot-out at 
Amstrad Gulch. You will have a choice of where you’re going to have 
the fight. It will be either 
1. behind a row of cacti 
2. behind a broken chuck wagon 
3. behind a broken chuck wagon with lots of cacti .scattered about. 


100 REM ************* 

110 REM * Shoot-out * 

120 REM ************* 

130 MODE 1:BORDER 12 

140 DEF FNr(r)=INT(r*RND<TIME)+l) 

150 DEF FNzl(z)=z*16+<RND(TIME)*2) 

160 DEF FNz2(z)»408-<z*16) 

170 INK 0,25iINK 1,9:INK 2,3:INK 3,4 
180 cr^='' ♦ ♦ ♦ ♦ "+CHRf(248) 

190 al$=al^+al^+alf+al:»+al^ 
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200 cll#=CHR»(200)+CHR*<201) 

210 cl2#=CHR$<202)+CHR*(203) 

220 c21♦»CHR*(204)+CHR*(205) 

230 c22**CHR* < 206)+CHR^(207) 

240 dd$«CHRf(208)+CHR*(20?)+CHR*(210) 

250 p2*5:p1=5;SYMBOL AFTER 35 
260 SYMBOL 36,24,24,126,126,24,24,24,24 
270 SYMBOL 37,255,255,255,255,255,255,25 
5,255 

280 SYMBOL 91,1,3,3,3,3,3,67,227 

290 SYMBOL 92,0,128,128,128,136,156,156, 

156 

300 SYMBOL 93,227,227,227,255,255,127,3, 
3 

310 SYMBOL 94,252,252,248,128,128,128,12 
8,128 

320 SYMBOL 200,1,5,7,1,3,1,7,11 

330 SYMBOL 201,64,208,240,192,192,192,24 

0,248 

340 SYMBOL 202,27,15,7,3,3,6,6,14 

350 SYMBOL 203,240,224,224,96,96,96,96,2 

24 

360 SYMBOL 204,2,11,15,3,3,3,15,31 

370 SYMBOL 205,128,160,224,128,192,128,2 

24,208 

380 SYMBOL 206,15,7,7,6,6,6,6,7 
390 SYMBOL 207,216,224,192,192,192,96,96 
,112 

400 SYMBOL 208,0,0,0,32,115,255,255,123 
410 SYMBOL 209,0,0,0,0,240,255,255,255 
420 SYMBOL 210,0,0,0,0,0,17,255,255 
430 c^=CHR$ (91) +CHR«: (92) +CHRf (10) +CHR# (8 
)+CHR^(8) 

440 c$=c$+CHR^(93)+CHR*(94);PEN 1 
450 LOCATE 15,1:PRINT "Shoot out":PRINT 
460 PRINT "At high noon you and your par 
tner are" 

470 PRINT "Going to have a shoot out at 
AMSTRAD" 
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480 PRINT "GULCH,You will have a choice 
of where" 


490 PRINT 
ht. " 

500 PRINT 
510 PRINT 
520 PRINT 
rols" 


"you are going to have the fig 

"They will be either...." 

" Controls" 

"Player 1 uses the Cursor cont 


530 PRINT "and the copy key" 

540 PRINT "Player 2 uses keys W X A D" 
550 PRINT "and 's'" 

560 PRINT" Options" 

570 PRINT " <1> cacti in the middle" 

580 PRINT " <2> a chuck wagon in the mid 
die" 


590 PRINT " <3> random cacti and a chuck 
wagon":PRINT 

600 PRINT " Input choice" 

610 2*»INKEY$;IF z»<" 1"0R 2*>"3"THEN 610 
620 MODE I:x2=35:y2»15:xl»5:yl-15 
630 LOCATE 1,1:PRINT LEFT*(al#,p1*2){LEF 
T*(cr*,(10-pl#2)) 

640 LOCATE 20,1:PRINT LEFT*(al*,p2*2)jLE 
FT*(cr*,(10-p2*2)) 

650 ON VAL(z*) GOTO 660,670,750 
660 FOR i=4 TO 22 STEP 4:LOCATE 20,i:PEN 
1:PRINT c*:NEXT i:GOTO 790 
670 PEN 2:LOCATE 19,11:PRINT CHR*(194)i 
680 PRINT CHR*(154);CHR*<195> 

690 LOCATE 19,12:PRINT CHR*(149); 

700 PRINT " ";CHR*(149) 

710 LOCATE 18,13:PRINT CHR*<149);STRING* 
<3,143);CHR*(149) 

720 LOCATE 18,14:PRINT CHR*<151);STRING* 
<3,143);CHR*(157) 

730 LOCATE 18,15:PRINT CHR*(149)s" "; 

740 PRINT CHR*(149):GOTO 790 
750 PRINT CHR*(22)j"l" 
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760 FOR i-1 TO 10:a»FNr(31)+3:b-FNr(18)+ 
2 

770 LOCATE a,b:PEN 1:PRINT c»:NEXT i 
780 PRINT CHR#<22);'•0'':GOTO 670 
790 PEN 3:L0CATE x2,y2;PRINT cll* 

800 LOCATE x2,y2+liPRINT cl2# 

810 LOCATE xl,yl:PRINT c21* 

820 LOCATE x1,y1+1:PRINT c22* 

830 INK 1,9:INK 2,3:INK 3,7:INK 0,25 

840 af»INKEY*:IF a*="" THEN 930 

850 IF a*<CHR*(200) THEN 940 

860 IF a*-CHR*(224) AND f2-0 THEN f2-l:t 

x2»FNzl(x2):ty2»FNz2(y2) 

870 LOCATE x2,y2:PRINT ” " 

880 LOCATE x2,y2+l:PRINT " " 

890 x2=x2+<a*=CHR*(242) AND x2>23)-(a*-C 
HR*(243) AND x2<38) 

900 y2»y2+<a*»CHR*(240) AND y2>4)-(a*»CH 
R*(241) AND y2<22) 

910 LOCATE x2,y2:PRINT cll* 

920 LOCATE x2,y2+l:PRINT cl2* 

930 IF f2»l THEN GOSUB 1040 
940 IF a*>CHR*(123) OR a*-"" THEN 1020 
950 IF a*="s" AND fl=»0 THEN fl»l:txl»FNz 
1(xl);tyl=FNz2(yl) 

960 LOCATE xl,yl:PRINT " " 

970 LOCATE x1,yl+l:PRINT " " 

980 xl=xl+(a*»"a" AND x 1 >1) - <a*=''d" AND 
xl<16) 

990 yl=yl+(a*="w" AND y1>4)-(a*="x" AND 
yl<22) 

1000 LOCATE xl,yl:PRINT c21* 

1010 LOCATE xl,yl+l;PRINT c22* 

1020 IF fl=l THEN GOSUB 1100 
1030 GOTO 840 

1040 PLOT tx2,ty2,0:tx2=tx2-0 
1050 IF tx2<0 THEN f2=0 
1060 tt=TEST(tx2,ty2) 
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1070 IF tt»l OR tt=2 THEN f2*0:sx=tx2;sy 
»ty2;G0SUB 1160:RETURN 

1080 IF tt»3 THEN dx*x1:dy*y1:GOTO 1200 

1090 PLOT tx2,ty2,2:RETURN 

1100 PLOT tx1,tyl,0:txl*tx1+8 

1110 IF txl>640 THEN fl=0 

1120 tt=TEST<txl,tyl) 

1130 IF tt*l OR tt=2 THEN f1=0:sx*tx1:sy 
=tyl:GOSUB 1160:RETURN 

1140 IF tt»3 THEN dx-x2:dy*y2:GOTO 1200 
1150 PLOT txl,tyl,2:RETURN 
1160 FOR i=l TO 15 

1170 PLOT sx+FNr(10)-5,sy+FNr<10)-5,0 
1180 SOUND 1,3000+i,3,15,15,15,FNr(15) 
1190 NEXT i:PLOT sx,By,0:RETURN 
1200 sx*dx:sy*dy:GOSUB 1160 
1210 LOCATE dx,dy:PRINT " " 

1220 LOCATE dx,dy+1:PRINT " " 

1230 FOR i-400-dy*16 TO 424 STEP 4 
1240 TAG:PLOT dx*16,i,3:PRINT dd*; 

1250 PLOT dx*16,i-16:PRINT " 

1260 TAGOFF:NEXT i 

1270 IF dx*16>320 THEN p2»p2-l 

1280 IF dx*16<320 THEN pl-pl-1 

1290 IF p2-0 OR pl-0 THEN 1320 

1300 LOCATE 1,1:PRINT LEFT*(al*,pl*2);LE 

FT*<cr*,(10-pl*2)) 

1310 LOCATE 20,1:PRINT LEFT*(al*,p2*2>;L 
EFT*(cr*,<10-p2*2)):GOTO 1310 
1320 MODE 1:PEN 1:LOCATE 15,3 
1330 PRINT "Game over":PEN 2:LOCATE 14,7 
1340 IF p2«0 THEN PRINT "Player 1 Won" 

1350 IF pl-0 THEN PRINT "Player 2 Won" 

1360 LOCATE 15,11:PRINT "Play again" 

1370 a*-INKEY*:IF a*-"y" THEN RUN 




Programs to Delight 
and Dazzle! 

An Amstrad CPC464 Compendium 
invites you, the keen computer hobbyist, 
to key in and play a fascinating selection 
of thirty games on the Amstrad CPC464. 

Each game is presented with a complete 
listing in LOCOMOTIVE BASIC, a helpful 
introductory description and a screenshot. 
There is something to appeal to the 
traditional and ultramodern computer 
gamester alike. 

Colourful graphics and art programs are 
included and you are introduced to a 
drawing program that allows you to ‘paint’ 
detailed pictures of your own creation. 

The authors set out with the intention of 
encouraging you to develop 
programming skills, allowing you to 
experiment with the programs in the 
book or even to write your own original 
programs. But the emphasis remains 
strictly on the fun you can have exploring 
the powerful facilities of your own 
Amstrad CPC464! 
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